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PREFACE 


This  report  documents  the  rehost  and  use  of  the  Student  Mix  Sof tware 
System  (SMSS)  for  the  Zenith  158  personal  computer.  SMSS  is  used  at  the 
Air  Force  Air  Command  and  Staff  College  (ACSC)  to  maintain  characteristic 
and  background  data  on  students  and,  in  conjuction  with  prioritized  mixing 
rules,  assigns  students  to  seminars.  The  rehosted  SMSS  dramatically 
improves  balancing  capability,  and  the  over-all  utility  of  the  system. 

The  rehosted  SMSS  is  so  successful  that  it  is  already  in  operation;  it  was 
used  to  generate  the  third  mix  student  assignments  for  ACSC  class  of  1988.  ^ 

The  authors  wish  to  publicly  acknowledge  the  assistance  and  support  of 
many  people  who  supported  the  completion  of  this  project.  Special  thanks 
and  recognition  is  given  to  Major  John  Buckner,  USAF,  who  patiently 
answered  the  many  questions  necessary  to  finalize  the  rehost  products.  We 
also  thank  Captain  Ronald  Ford,  USAF,  who  assisted  in  the  acquisition  of 
the  GW-6ASIC  compiler  used  in  this  project. 

This  project  includes  over  3,000  lines  of  computer  source  code  which 
is  listed  in  the  SMSS  User  Manual  (Appendix  A)  and  Is  maintained  on  three 
5  1/4"  computer  diskettes  (Appendix  B  of  original  report  only).  The 
computer  code  for  this  project  may  be  obtained  by  contacting  the  ACSC  Mix 
Master,  ACSC/ DO,  Maxwell  AFB,  AL  36112-5564.  Requestor  must  supply  three 
MS-DOS  formatted,  double  sided,  double  density,  5  1/4"  diskettes. 

This  research  project  is  submitted  to  simplify  and  optimize  a  process 
that  is  key  to  the  education  of  all  students  at  ACSC,  that  of  the  seminar 
mix.  We  sincerely  hope  that  future  classes  capitalize  on  the  benefits  and 
opportunities  that  a  balanced  seminar  provides,  a  balance  achieved  as  a 
result  of  the  rehosted  SMSS. 
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Chapter  One 


INTRODUCTION  TO  STUDENT  MIXING 

Student  mixing  is  integral  to  the  operation  of  the  Air  Force  Air 
Command  and  Staff  College  (ACSC)  at  Maxwell  AFB,  Alabama.  In  fact,  the 
mixing  of  ACSC  students  is  directly  linked  to  the  mission  of  the  school. 

The  ACSC  mission  ".  .  .to  enhance  the  professional  knowledge,  skills,  and 
perspectives  of  mid-career  officers  for  increased  leadership  roles  in 
command  and  staff  positions"  (3:1)  led  to  the  establishment  of  several 
goals.  Of  particular  importance  to  this  paper  are  the  school's  goals  to 
provide  a  forum  for  each  student's  professional  contribution,  and  an 
environment  for  the  personal  and  professional  growth  of  each  student. 

(3.-1)  The  concept  of  mixing  and  balancing  student  characteristics  and 
backgrounds  within  seminars  is  designed  to  achieve  these  goals  by 
increasing  the  exposure  of  each  student  to  different  experiences  and 
expertise,  and  facilitating  self-improvement  feedback  from  multiple 
Faculty  Instructors  (FIs).  (3:3)  The  student  mixing  concept  is  such  an 
integral  part  of  the  school 's  mission  that  the  Director  of  Operations 
appoints  a  mix  master  for  the  entire  school  and  each  squadron  commander 
assigns  an  FI  as  the  focal  point  for  student  mixing  requirements. 

In  addition  to  the  extensive  people  resources  assigned  to  the  student 
mixing  effort,  the  school  is  actually  structured  to  facilitate  the  mixing 
concept.  The  school  is  currently  made  up  of  four  squadrons,  each 
consisting  of  up  to  eleven  seminars  of  approximately  thirteen  students 
each.  The  school  and  squadron  mixers  balance  the  seminars  by  evenly 
assigning  officers  of  like  characteristics  and  backgrounds  across 
seminars.  For  example,  each  seminar  has  at  least  one  International 
Officer  (10)  assigned,  as  well  as  one  Army  officer.  Other  types  of 
officers,  like  females  and  minorities,  are  spread  across  seminars  as 
evenly  as  possible.  This  balancing  process  occurs  three  times  during  the 
ACSC  school  year.  With  the  exception  of  10s  and  SOS  faculty,  ACSC 
students  must  be  assigned  to  new  seminars  (different  FIs)  each  mix.  In 
addition,  the  number  of  seminar  classmates  with  whom  a  student  was 
previously  assigned  is  minimized.  To  accomodate  for  the  graduation  of  all 
the  10s  at  the  end  of  the  second  mix,  one  seminar  in  each  squadron  is 
closed  down  for  the  third  mix. 

Assigning  approximately  570  ACSC  students  into  44  seminars  may  seem 
like  a  trivial  task,  but  when  you  add  some  thirty  different  rules  and 
constraints  to  a  process  that  occurs  three  times  each  school  year  the  task 
quickly  becomes  complex  and  time-consuming.  The  basic  idea  behind  the 


mixing  rules  is  to  provide  the  widest  range  of  experience  possible  to 
expose  each  student  to  new  and  different  ideas,  career  fields,  and  service 
and  country  backgrounds.  It  is  also  important  that  each  seminar  contain 
representative  experience  and  expertise  as  each  major  area  of  the  ACSC 
curriculum  is  studied.  Topics  such  as  tactical,  strategic  and  space 
operations  and  acquisition,  logistics  and  budgeting  functions  are  more 
quickly  grasped  and  understood  when  first-hand  knowledge  is  available 
within  the  seminar.  Expertise  within  each  seminar  is  especially  desirable 
since  the  students  present  and  lead  the  majority  of  the  seminar  lessons 
themselves.  A  well  balanced  student  mix  requires  the  constant  and 
repetitive  consideration  of  numerous  factors,  a  task  particularly  well 
suited  for  a  computer. 


HISTORY  OF  AUTOMATED  MIXING 

Student  mixing  was  first  automated  as  the  "Seminar  Automated  Mixer" 
(SAM)  which  ran  on  the  mainframe  Honeywell  computer  at  Gunter  AFS.  The 
system  was  extremely  slow  requiring  seven  to  ten  days  to  receive  the 
output  reports.  In  addition,  the  SAM  system  violated  most  of  the  mixing 
rules  and  required  extensive  manual  manipulation  by  the  school  and 
squadron  mixers.  (8: — )  It  took  approximately  two  months  prior  to  the 
start  of  the  ACSC  school  year  to  input  and  process  the  student  data,  and 
produce  just  the  initial  reports.  (4:2)  Although  a  breakthrough  from  the 
totally  manual  method  of  mixing,  the  SAM  system  was  terribly  unresponsive 
and  quite  inefficient  by  today's  standards.  It  was  subsequently  replaced 
with  the  current  automated  system,  the  "Student  Mix  Software  System" 
(SMSS). 

SMSS  was  designed  to  run  on  the  Zenith  120  computer  using  the  ZBASIC 
programming  language  and  the  CONDOR  III  Relational  Data  Base  Management 
System  (DBMS),  systems  which  were  readily  available  at  ACSC.  (4:3)  This 
conf iguration  brought  the  automated  mixing  capability  directly  into  the 
mix  master's  office,  and  provided  real-time,  hands-on  access.  SMSS 
incorporated  all  the  mixing  rules,  heuristics  and  factors  needed  by  the 
school  at  the  time,  and  it  sharply  reduced  the  amount  of  manpower  required 
to  produce  a  final  mix  from  about  200  hours  (4:31)  to  about  40  hours. 

(5: — )  The  system  was  severly  constrained,  however,  by  the  limited  memory 
capacity  of  the  Z-120  (256K  Bytes  RAM)  and  the  limited  report  formatting 
capability  of  CONDOR  III  and  ZBASIC.  SMSS  was  also  unnecessarily 
constrained  by  a  three  tiered  priority  scheme  for  implementing  the  mixing 
rules;  a  constraint  which  severely  handicapped  the  mix  masters  ability  to 
properly  balance  student  characteristics  and  skills  automatically.  (5: — ) 
In  the  final  analysis,  SMSS  was  a  giant  step  forward  because  it  brought  a 
much  needed  capability  directly  into  the  user's  office.  By  providing 
initial  reports  within  an  hour  of  initiation  SMSS  was  much  more  responsive 
than  the  old  SAM  system;  so  responsive  that  the  mix  master  could 
repeatedly  refine  and  rerun  the  mix  several  times  a  day.  Unfortunately , 
as  will  be  seen  in  the  next  chapter,  this  capability  would  become  the  most 
redeeming  feature  of  a  system  which  was  plagued  with  problems. 


PURPOSE  OF  THIS  PAPER 


The  heart  and  soul  of  this  project  is  the  computer  software  and  User's 
Manual  attached  to  this  paper ^ (appendix  A  and  B).  The  software  provides 
Uie  actual  data  manipulation,  mixing,  and  report  producing  capabilities, 
while  the  User's  Manual  provides  the  ability  to  easily  use  and  maintain 
the  system.  By  far  the  majority  of  the  effort  went  into  the  development 
of  these  products.  The  purpose  of  this  paper  is  to  establish  the  absolute 
need  for  these  products,  and  consequently,  justify  the  effort  spent. 

This  chapter  introduced  the  ACSC  student  mixing  concept  and  provided 
some  background  into  the  development  of  SMSS.  Chapter  two  assesses  the 
need  for  rehosting  the  SMSS  system  by  identifying  the  many  shortcomings  of 
SMSS  and  exploring  the  many  benefits  realized  in  rehosting  the  system. 
Lastly,  chapter  three  provides  some  conclusions  about  the  SMSS  rehost 
effort,  how  well  the  new  SMSS  operates  in  comparison  to  the  old  system, 
and  what  improvements  could  be  made  to  make  it  even  better. 


Chapter  Two 


THE  NEED  TO  REHOST  SMSS 

SMSS  was  a  tremendous  step  forward  for  ACSC  student  mixing  but  it 
definitely  had  its  problems  and  limitations.  By  providing  real-time, 
hands-on  access  and  rapid  turnaround,  SMSS  provided  a  responsiveness  that 
was  previously  only  dreamed  of.  But  some  SMSS  functions  just  didn't  work 
correctly  and  several  others  left  a  lot  to  be  desired.  These  defects  and 
deficiencies  were  important  ingredients  which  fed  into  the  decision  to 
rehost  SMSS,  but  the  predominant  reason  for  rehosting  the  SMSS  system  was 
its  inherent  lack  of  flexibility. 

Like  the  earlier  SAM  system,  SMSS  was  unable  to  accomodate  even  minor 
changes  to  the  mixing  process.  Since  the  development  of  SMSS,  two  student 
characteristics  ceased  to  be  factors  in  the  mixing  process:  that  of 
"Communication  Skills"  and  "Air  Research  Institute"  students.  (5: — )  It 
wasn't  difficult  for  SMSS  to  ignor  these  traits,  but  it  was  definitely  a 
problem  to  incorporate  new  mixing  rules  into  SMSS.  The  student 
characteristic  of  "Space  Operations  Experience"  became  a  major  mixing 
factor  in  1987.  The  only  way  the  mix  master  could  make  SMSS  handle  this 
new  mixing  requirement  was  to  use  the  existing  "Communication  Skills" 
field  to  identify  students  with  “Space  Operations  Experience."  (5: — ) 

This  was  a  brute  force  method  to  make  SMSS  handle  the  new  requirement,  but 
the  SMSS  reports  still  reflected  the  "Communications"  label.  However, 

SMSS  could  not  handle  any  other  additional  characteristics ,  even  the  brute 
force  way.  The  ACSC  mix  master  needed  the  capability  to  handle  additional 
student  mixing  characteristics ,  especially  considering  the  overwhelming 
emphasis  being  placed  on  "Joint  Service  Experience"  in  upcoming  ACSC 
classes.  This  is  a  capability  that  SMSS  currently  lacks. 

Another  major  change  since  the  development  of  SMSS  was  an  ACSC 
decision  to  standardize  the  school ’s  computer  hardware  and  software.  In 
late  1986  the  school  made  an  investment  of  about  $225,000.00  in  purchasing 
65  Zenith  158  (IBM-compatible)  personal  computers,  and  acquiring  the  SMART 
integrated  software  package  for  each  machine.  (6: — )  The  Z-158  has  more 
than  twice  the  internal  memory  (640K  Bytes  RAM)  of  the  Z-120  and, 
consequently,  isn’t  as  constrained  in  the  number  and  type  of  computer 
application  programs  that  can  be  used.  In  addition,  the  SMART  software 
package  provided  a  capability  which  integrated  four  vital  computer 
applications  within  one  system:  word process i ng ,  data  base  management, 
telecommunicat ions ,  and  spreadsheet .  In  essence,  the  school  decided  to 
standardize,  for  the  foreseeable  future,  on  the  capabilities  and  user 


interfaces  inherent  in  these  systems.  To  maximize  the  return  on  the 
school's  investment  in  standard  computer  resources,  the  ACSC  Director  of 
Operations  set  an  objective  to  get  "...  the  faculty  proficient  and  using 
the  SMART  software  system."  (2:1)  However,  as  the  ACSC  mix  master  soon 
discovered,  SMSS  would  not  run  on  the  Z-158s,  and  it  was  not  compatible 
with  the  SMART  data  base  manager.  (5: — )  This  was  an  SMSS  limitation 
that  needed  to  be  rectified. 

SMSS  clearly  lacked  the  flexibility  necessary  to  accomodate  even  the 
most  minor  mixing  changes .  This  chapter  will  further  assess  the  need  to 
rehost  SMSS  by  first  identifying  SMSS  defects  and  deficiencies,  and  then 
by  exploring  the  many  benefits  to  be  gained  in  rehosting  the  SMSS  system. 


SMSS  DEFECTS  AND  DEFICIENCIES 

SMSS  has  been  used  since  1986  to  maintain  student  data,  perform  the 
student  mixing,  and  generate  the  required  reports.  During  that  time, 
several  difficulties  were  encountered  in  using  SMSS.  (5: — )  The  ACSC  mix 
master  was  repeatedly  interviewed  to  identify  the  problems  and  limitations 
of  the  current  SMSS  system,  and  to  determine  the  existing  student  mixing 
requirements  and  practices.  This  information  was  further  supplemented  by 
reviewing  related  Air  University  and  ACSC  regulations  dealing  with  seminar 
organization,  rank,  and  procedures,  and  by  inspecting  the  actual  SMSS 
computer  code  and  documentation.  The  result  was  the  identification  of 
several  SMSS  defects  and  deficiencies.  A  defect  refers  to  a  capability 
that  doesn't  work  correctly,  while  a  deficiency  refers  to  a  capability 
that  is  difficult  to  use  or  incorporate.  Both  defects  and  deficiencies 
have  hidden  costs  associated  with  them. 

The  first  defect  of  SMSS  is  that  the  mixing  module  incorrectly  assigns 
Seminar  Leaders  (SLs)  and  Assistant  Seminar  Leaders  (ASLs).  The  school 
has  a  very  strict  procedure  for  assigning  SLs  and  ASLs,  and  the  assignment 
rules  change  depending  on  the  mix  being  processed.  (1:1)  The  SMSS  mixing 
module  assigned  students  that  were  either  not  eligible  for  the  position, 
or  didn't  assign  students  who  were.  The  result  was  several  hours  of 
manual  checking  by  the  mix  master  to  insure  the  SLs  and  ASLs  were 
correctly  assigned.  (5: — )  This  was  such  a  cumbersome  task  that, 
eventually,  the  mix  master  started  pre-assigning  students  to  seminars  and 
to  SL/ASL  positions  manually  within  the  SMSS  data  base  module.  This  one 
SMSS  defect  cost  several  hours  of  mix  master  time  each  mix,  and 
considerably  reduced  the  randomness  and  flexibility  of  the  mixing  process. 

Another  defect  of  the  SMSS  mixing  module  is  the  inaccurate  statistical 
report  summaries  that  it  produced.  (5: — )  This  defect  had  an  indirect, 
yet  more  significant,  cost  associated  with  it.  The  mix  master  could  get 
the  correct  mix  statistics  by  generating  SMSS  data  base  reports  using 
CONDOR  III  capabilities .  This  requires  minimal  effort  by  the  mix  master, 
but,  the  balancing  capabilities  of  the  SMSS  mixing  module  strongly  depends 
upon  the  student  statistics  in  maintains.  (4:58-97)  Consequently,  the 


inaccurate  st*  til  ist  ics  gave  the  mixing  modu  le  a  false  indicat  ion  of  seminar 
I  a  lance.  •  md  J  i  r<x:t  ly  affected  student  assignments.  The  result  is  the 
inability  of  SMSS  to  properly  Ivtlance  seminars,  the  prime  SMSS  function. 
!neffec:t  ive  seminar  balancing  cost  several  t tours  of  manual  changes  each 
mix  by  t  he  sctmol  and  squadron  mixers  to  achieve  an  acceptable  balance,  a 
Job  that  SMSS  was  created  to  do  and  which  it  should  have  done  right  by 
itself . 

The  last  SMSS  defect  is  that  tlie  mixing  module  periodically  caused  the 
computer  to  "hang-up" .  (8:  — )  This  defect  is  an  irritant  to  the  mix 

master  because  the  only  way  to  get  out  of  this  condition  is  to  re-start 
t  lie  computer  and  re-run  the  mix.  (5:  — )  Fortunately,  this  condition 
rxtcurs  infrequently  and  cost  very  little  in  time  and  effort,  however,  it 
demonstrates  the  immaturity  of  the  SMSS  system.  The  SMSS  mixing  module 
contains  recursive  computer  code  (code  that  calls  itself)  and  unstructured 
computer  code.  (4:88-97)  Such  programming  practices  lead  to  conditions 
that  cause  computers  to  “hang-up"  and  make  it  nearly  impossible  to 
maintain  the  system.  All  three  of  these  SMSS  defects  need  fixing,  but  the 
mix  master  could  often  tollerate  them  more  than  he  could  the  other  SMSS 
Jet  it:  iencies . 

Tfie  most  significant  deficiency  of  SMSS  is  the  inadequate  control  it 
provides  to  tlie  mix  master  over  mixing  rule  priorities.  SMSS  was 
developed  using  a  three  tiered  priority  scheme  which  enabled  tlie  mix 
mister  to  designate  each  mixing  rule  as  being  either  "Always  Important", 
"Sometimes  Important " ,  or  "Not  important".  (4:21)  With  the  requirement 
to  mix  students  on  eighteen  different  characteristics ,  this  priority 
scheme  didn't  provide  the  capability  needed  to  define  the  relative 
importance  of  each  rule  during  a  given  mix.  As  a  result,  the  mix  master 
Itad  to  adjust  and  re-run  tlie  mix  several  times  to  even  come  close  to  the 
desired  results.  (5:  — )  This  deficiency  caused  several  hours  of  mix 
master  t  ime  in  re-running  the  mix,  and  in  manual  adjustments  to  seminar 
assignments  afterwards.  The  developers  of  SMSS  recognized  the  balancing 
inefficient: iew  of  tlie  system  and  suggested  an  additional  computer  program 
be  written  to  adjust  the  seminar  assignments  made  by  the  mixing  module. 
(4:3?)  It  is  absolutely  ridiculous  to  write  a  computer  program  to  do  the 
job  that  tlx?  original  computer  program  is  suppose  to  do.  The  three  tiered 
priority  scheme  incorporated  within  SMSS  unnecessari 1 ly  constrained  the 
mix  master,  it  caused  the  SMSS  mixing  module  to  work  harder  and  longer 
t  bin  was  really  required,  and  in  the  end  it  caused  poor  mix  balances.  The 
•eminar  imbalances  produced  by  SMSS  are  the  direct  result  of  an  inadequate 
mixing  rule  prior ity  scheme. 

Another  deficiency  of  SMSS  is  its  poor  report  generation  capability. 

A:  noted  by  tlie  original  developers,  SMSS  "...  does  not  automat ical ly 
produce  tlie  final  report  in  tlie  correct  f  ormat . "  (4:32)  This  deficiency 

r.  attributable  to  t  tie  limitations  of  the  CONDOR  111  D6MS  which  provides 
ill  tlie  i i it ormat ion  necessary  for  the  Student  Statistical  Report,  but 
which  cannot  bundle  tfie  required  report  f ormat .  SMSS  also  lacks  the 
fafVibility  to  provide  real-time,  ad  lioc  reports .  (5:  — )  The  ACSC  mix 


master  is  constantly  called  upon  to  provide  special  purpose,  one-time 
reports,  especially  between  mixes.  Although  this  is  a  major  requirement 
of  the  mix  master,  SMSS  is  deficient  in  the  support  it  provides  in  this 
area . 

Three  of  SMSS's  capabilities  don't  work  correctly  and  two  others  are 
deficient  in  providing  all  the  capability  the  mix  master's  needs.  These 
defects  and  deficiencies,  along  with  the  general  inability  of  SMSS  to 
handle  changing  conditions,  led  to  the  decision  to  rehost  SMSS. 


BENEFITS  OF  REHOSTING  SMSS 

Solving  all  the  problems  of  the  original  SMSS  system  required  much 
more  than  quick  patches,  it  involved  a  complete  rehosting  and  redesign  of 
the  system.  SMSS  needed  the  ability  to  run  on  the  ACSC  standard  Z-158 
computer  using  the  SMART  data  handling  and  user  interface  capabilities. 

The  SMSS  mixing  module  needed  to  be  rewritten  to  correct  the  current 
defects  and  to  "optimize"  the  mix  balancing  capability.  Last  but  not 
least,  a  comprehensive  User's  Manual  needed  to  be  developed.  This  was  the 
scope  of  the  SMSS  rehost  effort,  an  effort  which  would  provide  the  mix 
master  with  enormously  increased  capabilities  and  the  ability  to  produce 
the  mixing  products  in  a  fraction  of  the  time.  The  remainder  of  this 
section  explores  the  benefits  possible  in  four  areas  of  SMSS:  defects, 
deficiencies,  flexibility,  and  maintainability. 

Just  fixing  the  three  SMSS  defects  identified  earlier  would  be  strong 
justification  for  the  rehost  effort.  Correcting  the  Seminar  Leader  and 
Assistant  Seminar  Leader  assignment  defect  would  save  the  time  required  to 
manually  recheck  or  pre-assign  students  each  mix.  Likewise,  fixing  the 
SMSS  mixing  module  statistics  defect  would  save  time  by  reducing  the 
number  of  manual  reassignments  necessary  to  achieve  an  acceptable  mix 
balance.  Correcting  the  SMSS  computer  "hang-up"  defect  would  save  the 
time  needed  to  re— run  the  mix  and  would  help  restore  user  confidence  in 
the  SMSS  system.  Fixing  the  three  SMSS  defects  would  save  an  estimated  20 
hours  each  mix  in  the  time  and  effort  required  by  the  school  and  squadron 
mixers  to  produce  the  necessary  mixing  products. 

Correcting  the  SMSS  deficiencies  would  not  only  save  user  time,  but 
would  provide  capabilities  comparable  to  the  "responsiveness"  provided  by 
the  original  SMSS  system.  Replacing  the  three  tiered  priority  scheme  of 
SMSS  with  a  ten  level  priority  scheme  would  provide  the  mix  master  with  a 
control  over  student  mixing  never  thought  possible.  It  would  save  the 
time  required  to  re-run  the  mix  over  and  over,  and  would  "optimize"  the 
student  mixes.  Providing  the  capability  to  generate  correctly  formatted 
reports  directly  with  the  SMSS  data  base  module  would  save  the  time 
required  for  the  mix  master  to  reformat  reports  with  a  word-processor  and 
would  support  the  mix  master  in  the  real-time  generation  of  adhoc  reports. 
Fixing  the  SMSS  deficiencies  would  provide  the  mix  master  with  tremendous 
new  capabilities;  the  capability  to  "optimize”  the  mixing  process,  and  the 
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capability  to  produce  reports  as  needed.  These  new  SMSS  capabilities 
alone  would  justify  the  SMSS  rehost  effort,  but  even  greater  benefits  are 
possible . 

Correcting  the  SMSS  defects  and  deficiencies  were  major  determinants 
in  re hosting  the  SMSS  system,  but  the  predominant  reason  for  re hosting 
SMSS  to  the  Z-158  was  to  make  the  SMSS  system  more  flexible,  useable,  and 
maintainable.  The  original  SMSS  is  unable  to  handle  additional  student 
characteristics  and  mixing  rules.  One  of  the  benefits  of  the  rehost  would 
be  the  addition  of  five  unlabeled  mixing  identification  fields  which  are 
ready  for  immediate  use.  SMSS  would  also  be  designed  to  allow  even  more 
fields  to  be  added.  Further  flexibility  would  be  attained  by  rehosting 
SMSS  to  IBM-compatible  computer  hardware  (Z-158),  and  by  providing  three 
different  user  definable  SMSS  conf igurations :  dual  floppy  d^sks,  hard 
disk  and  floppy  disk,  and  RAM  disk  with  either  hard  or  floppy  disk.  These 
features  would  increase  the  flexibility  and  useability  of  SMSS  by 
expanding  the  number  of  computers  SMSS  could  potentially  run  on. 

Rehosting  the  SMSS  to  the  Z-158  under  the  SMART  integrated  software 
package  would  make  SMSS  more  useable  and  maintainable.  The  SMART  data 
base  manager  would  provide  SMSS  with  a  standard  ACSC  user  interface 
capability,  and  would  provide  the  SMSS  user  with  an  automated  "help" 
feature  for  each  SMSS  menu  option.  The  SMSS  "help"  feature  would  inform 
the  user  of  each  menu  option  available  and  would  provide  textual  rational 
for  choosing  an  option.  A  critical  product  for  the  useablity  of  the  SMSS 
system  is  adequate  user  documentation.  The  SMSS  rehost  effort  would 
produce  a  comprehensive  User's  Manual  (Appendix  A)  which  would  thoroughly 
explain  the  design  of  the  rehosted  SMSS,  and  would  guide  the  user  through 
each  step  of  the  SMSS  mixing  process.  The  User’s  Manual  would  also  be 
invaluable  for  modifying  the  SMSS  computer  code  and  for  maintaining  the 
system  in  the  future.  In  addition,  all  SMSS  computer  code  would  be 
structured  and  documented  to  further  enhance  the  maintainability  of  the 
system. 

The  rehost  of  SMSS  corrected  defective  and  deficient  capabilities,  and 
provided  powerful,  new  capabilities  for  using  and  maintaining  the  system. 
The  next  chapter  will  compare  the  performance  of  the  rehosted  SMSS  to  the 
original  system,  and  suggest  improvements  which  could  make  it  even  better. 


Chapter  Three 


CONCLUSION 

Although  the  SMSS  rehost  effort  required  a  complete  redesign  of  the 
system  and  rewrite  of  the  computer  code,  the  original  SMSS  name  was  not 
changed.  SMSS  is  an  automated  mixing  concept,  a  concept  which  really 
didn't  change  with  the  rehost.  The  rehost  fixed  SMSS  defects  and 
deficiencies  and  provided  additional  capabilities,  but  the  mixing  concept 
stayed  the  same.  In  addition,  the  original  SMSS  was  developed  as  a 
prototype  system  (4:3),  a  prototype  which  never  reached  full  maturity. 
Consequently,  the  original  name  was  retained. 

The  success  of  the  SMSS  rehost  effort  can  be  judged  in  its  performance 
against  the  performance  of  the  original  system.  The  rehosted  SMSS  was 
used  to  generate  the  third  mix  student  assignments  for  ACSC  class  1988. 

The  original  SMSS  was  also  run  for  purposes  of  comparison.  The  rest  of 
this  chapter  compares  the  performance  of  the  two  systems  and  recommends 
improvements  which  can  make  the  rehosted  SMSS  even  better. 


TH I RD  MIX  COMPARISONS 

Figures  1  and  2  show  comparative  results  from  the  rehosted  SMSS  and 
the  original  SMSS  for  the  third  mix  of  ACS C  class  1988.  The  results  for 
only  the  3821st  Student  Squadron  are  shown,  but  are  representat i ve  of  the 
entire  school.  The  figures  show  the  number  of  students  SMSS  assigned  to 
each  seminar  which  possess  the  characteristic  listed  on  the  left.  Those 
student  characterstics  which  are  not  completely  balanced  are  underlined 
for  clarity  purposes.  Prior  to  running  this  mix,  the  mix  master  assigned 
the  highest  rule  priority  of  "9"  to  the  following  characteristics :  Army; 
Reserves,  ANG,  Civilians,  USMC,  or  Navy;  Minorities;  Females;  and  Medical, 
Legal,  or  Chaplains.  The  lowest  rule  priority  of  "0"  represents  charac¬ 
teristics  which  the  mix  master  is  not  concerned  with  balancing.  Priority 
"0"  was  assigned  to  the  following  characteristics :  Line  AD  AF;  No  Degree; 
HQ  Experience;  Academy  Graduate;  Captains;  and  Bomber  or  Missile 
Fxperience.  Comparable  priorities  were  assigned  by  the  mix  master  using 
the  "Always",  "Sometimes",  and  "Not  Important"  scheme  of  the  original  SMSS 
system.  Figures  1  and  2  reflect  the  actual  student  assignments  of  the  two 
SMSS  systems,  and  do  not  contain  any  manual  adjustments . 

In  pvery  instance,  the  rehosted  SMSS  outperformed  the  original  SMSS  in 
balancing  the  third  mix  student  characteristics .  The  only  non-zero 
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FIGURE  1.  Rehosted  SMSS  Third  Mix  Results. 
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priority  characteristics  that  the  rehosted  SMSS  failed  to  perfectly 
balance  were  "Unacconmnpanied"  and  "Pilots"  which  were  assigned  the  lowest 
two  non-zero  priorities  for  this  mix.  Even  the  "Unaccompanied"  category 
was  only  off  from  a  perfect  balance  by  two  students,  and  the  "Pilot" 
category  was  off  by  one  student.  On  the  other  hand,  the  original  SMSS 
failed  to  balance  six  characteristics  of  concern,  including  one  with  the 
highest  priority  (Medical , Legal ,Chaplain/88XX,89XX,9XXX) .  The  other 
unbalanced  characteristics  of  interest  are:  Strat  Ops;  Acq/Log  Exp; 
Pilots;  Navigators;  Space  Exp;  and  Unaccompanied.  In  addition,  the 
original  SMSS  was  often  off  in  its  balance  by  a  factor  of  four.  Clearly, 
the  rehosted  SMSS  outperformed  the  original  system.  In  fact,  it  actually 
"optimized"  the  third  mix. 

In  addition  to  optimizing  the  third  mix,  the  rehosted  SMSS  proved  many 
of  its  other  capabilities.  The  portability  of  the  system  was  demonstrated 
by  running  the  system  on  the  Z-120  computer  with  a  Gemini  Board.  This 
hardware  conf iguration  allows  the  Z-120  to  emulate  an  IBM-compatible 
computer.  The  rehosted  SMSS  ran  at  about  half  the  speed  as  on  the  Z-158, 
but  otherwise  operated  without  difficulty.  The  user-f riendly,  menu-driven 
interface  of  the  rehosted  SMSS  was  demonstrated  by  the  ability  of  a  novice 
user,  the  3824  STUS  mixer,  to  operate  the  system  with  minimal  assistance. 
The  system’s  flexibility  was  demonstrated  by  successfully  using  an 
unlabeled  characteristic  field  during  the  mixing  process.  The  student 
information  transferred  from  the  original  SMSS  data  base  for  "Strategic 
Operations  Experience"  was  flawed.  The  flexibility  of  the  additional 
characteristic  fields  enabled  the  mix  master  to  quickly  recover  from  this 
condition  without  having  to  manually  edit  each  student  record.  Last,  but 
not  least,  the  new  mixing  module  correctly  assigned  all  the  Seminar 
Leaders  and  Assistant  Seminar  Leaders.  The  rehosted  SMSS  clearly  met  all 
the  performance  objectives  and  exceeded  the  expectations  of  all  concerned. 


RECOMMENDED  CHANGES 

Cne  limitation  of  the  rehosted  SMSS  system  became  apparent  during 
processing  of  the  third  mix.  The  SMSS  mixing  module  is  designed  to  assign 
the  SLs  and  ASLs  before  making  any  other  assignments.  Just  as  the  original 
SMSS  did.  This  gives  the  assignment  of  SLs/ASLs  an  unintended,  artificial 
priority  above  all  other  mixing  rules.  (7: — )  It  also  severely  limits 
the  school  and  squadron  mixers  ability  to  manually  reassign  students 
assigned  to  these  positions,  and  requires  that  the  student  dates  of  rank 
be  rechecked  if  any  manual  reassignments  are  made.  If  the  assignment  of 
SLs  and  ASLs  were  moved  from  the  SMSS  mixing  module  to  the  SMSS  data  base 
mochjle,  all  students  could  be  manually  reassigned  by  the  mix  master 
without  regard  to  the  final  determination  of  the  SLs  and  ASLs.  Besides 
providing  additional  capability,  this  change  would  provide  even  more 
flexibility  and  randomness  to  the  mixing  process. 

The  rehosted  SMSS  has  dramatically  reduced  the  workload  of  the  school 
and  squadron  mixers.  It  provides  much  better  products,  with  greater 


I 


flexibility,  in  about  the  same  amount  of  time  as  the  original  system. 

But,  regardless  how  good  the  rehosted  SMSS,  no  automated  mixing  system 
will  ever  totally  remove  all  manual  adjustments.  There  are  always  person 
unique  mixing  factors,  such  as  personality,  which  cannot  be  automated,  but 
which  will  always  play  an  important  role.  The  rehosted  SMSS  "optimizes" 
the  mixing  process  and,  as  a  tool,  provides  a  tremendous  capability  to  the 
mix  master;  a  capability  which  is  highly  flexible,  useable,  and 
maintainable,  and  which  will  continue  to  satisfy  the  school's  future 
student  mixing  needs. 
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Chapter  One 


SNSS  Overview 


1.1  What  is  SMSS? 

The  Student  Mix  Software  System  (SMSS)  is  a  set  of  computer 
programs  used  to  distribute  (or  mix)  Air  Command  and  Staff  College 
(ACSC)  students  into  ten  to  thirteen-person  seminars  to  which  they 
will  be  assigned  for  parts  of  the  school  year.  The  school 
philosophy  is  to  distribute  students  evenly  among  seminars  based 
on  characteristics  and  skills  of  each  student  so  that  each  seminar 
has  a  uniformly  homogeneous  "mix"  of  students.  Students  are 
generally  reassigned  three  times  each  academic  year.  The  following 
features  of  SMSS  aid  the  ACSC  staff  in  assigning  students: 

-  Student  data  base. 

-  Menu  driven  program  that  "walks"  the  user  through  the 
mixing  process . 

-  Predefined  reports 

SMSS  is  designed  to  run  on  the  Zenith  158  (Z158)  computer  system, 
which  is  commonly  used  at  ACSC.  Additionally,  it  will  run  on  any 
IBM-compatible  personal  computer  with  a  configuration  similar  to 
the  ACSC  standard  Z158. 

1.2  SMSS  Structure. 

There  are  two  main  software  elements  to  SMSS:  (1)  the  user 
interface  and  (2)  the  mixing  program.  The  user  interface  runs 
under  the  SMART  integrated  software  package  which  is  a  commercial 
software  system  owned  by  ACSC.  SMART  contains  a  word  processor, 
spreadsheet,  data  base  manager,  and  a  telecommunications  package. 
SMSS  uses  the  data  manager  to  maintain  its  student  data  base, 
detailed  in  Appendix  1.  Also,  there  is  programming  language  within 
SMART,  called  the  SMART  Project  Processing  feature.  The  SMSS  user 
interface  is  written  in  this  language  and  runs  as  a  SMART  project 
file.  Appendix  2  is  a  source  listing  of  all  the  SMSS  project 
files.  See  the  SMART  user’s  manuals  located  in  the  ACSC  Computer 
Room  (room  236)  for  more  information  on  the  SMART  data  manager  and 
project  processor.  However,  because  SMSS  guides  the  user  through  a 
menu  driven  process,  it  should  not  be  necessary  for  him/her  to  be 
an  expert  on  the  SMART  data  manager. 

SMART  does  not  provide  the  detailed  programming  capability  needed 
to  do  student  mixing,  so  the  SMSS  mixing  program  is  written  in  the 


GW-BASIC  programming  language.  A  complete  source  listing  of  the 
mixer  is  at  appendix  3.  Again,  a  knowledge  of  BASIC  is  not  needed 
to  run  SMSS. 

1.3  Using  This  Manual. 

This  user’s  manual  is  organized  in  the  same  sequence  as  the  ste 
involved  in  the  student  mixing  process.  Chapter  2  describes  ho 
to  load  SMSS,  how  to  configure  it  for  your  computer,  and  how  to 
get  it  started.  Next,  Chapter  3  shows  you  how  to  build  and 
maintain  the  SMSS  data  base.  Chapter  A  deals  with  student  mixing, 
and  Chapter  5  discusses  the  reports  that  show  the  results  of 
mixing.  Finally,  Chapter  6  lists  the  sequence  of  steps  that  the 
ACSC  "mi xmaster "  (the  staff  officer  responsible  for  student 
mixing)  should  go  through,  using  SMSS.  Therefore,  the  first-time 
user  should  start  at  the  beginning  and  march  through  sequentially 
as  the  manual  will  describe  the  mixing  process  as  well  as  how  to 
use  SMSS  in  its  support. 


There  are  several  examples  throughout  the  manual  that  show 
sequences  of  commands  to  type  into  the  computer.  Actual  keyboard 
inputs  will  be  shown  boldfaced  and  under  1 ined. 
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Chapter  Two 


Installing  and  Starting  SHSS 

This  chapter  gives  step  by  step  instructions  for  installing  SMSS 
on  your  computer  and  shows  how  to  get  the  system  started.  If  SMSS 
is  already  installed,  skip  to  paragraph  2.4  for  running 
instructions . 

2.1  The  SMSS  Release  Disks. 

SMSS  comes  to  you  on  three,  5  i/4  inch  floppy  diskettes.  Disk  1 
(SMSSPROG)  contains  the  SMSS  source  and  object  programs,  and  all 
the  auxiliary  files  needed  to  run  and  maintain  SMSS.  Because  the 
whole  system  will  not  fit  on  one  diskette,  the  large  student  data 
base  is  on  disk  2  (SMSSSTUS).  Together,  disk  1  and  disk  2  contain 
all  of  SMSS.  A  third  disk  (SMSSRUN)  is  similar  to  disk  1  but 
contains  only  the  object,  or  run-time  versions  of  the  mixer  and 
user  interface  programs.  Disk  3  is  useful  if  space  is  limited  and 
you  don’t  want  to  load  up  the  program  source  code  or  if  you  want 
to  release  the  system  to  someone  else  and  don’t  wish  to  make  the 
source  code  available.  Make  a  backup  copy  of  all  three  diskettes 
using  the  MS-DOS,  "DISKCOPY"  command. 

2.2  Runtime  Disk  Configurations. 

Some  actions  you  will  take  to  prepare  your  computer  for  SMSS 
depend  on  how  you  plan  to  run  the  system.  SMSS  can  be  run  from 
either  of  three  disk  configurations  using  (1)  floppy  disk,  (2) 
hard  disk,  or  (3)  a  combination  of  floppy  disk  and  virtual 
(in-memory)  disk,  sometimes  called  ramdisk.  Each  configuration 
has  certain  benefits  and  constraints  in  terms  of  speed  and 
transportability  as  follows: 

FLOPPY  DISK  ONLY  --  If  you  don’t  have  room  on  your  hard  disk 
to  permanently  install  SMSS,  or  you  want  to  be  able  to 
transport  the  system  between  computers,  this  is  the  way  to 
go.  You  must  have  a  computer  with  two  floppy  disk  drives  -- 
drive  A  will  be  used  for  the  SMSSPROG  or  SMSSRUN  disk  and 
drive  B  will  be  used  for  the  SMSSSTUS  disk.  This  is  the 
s 1  owes t - r unn i ng  option. 

HARD  DISK  --  If  you’ve  got  a  hard  disk  with  at  least  750k 
bytes  available,  this  is  the  fastest  and  preferable  way  to 
run  SMSS.  Transportation  between  computers  can  be  tedious. 


FLOPPY  AND  VIRTUAL  DISK  --  Virtual  disk  (VDiSK)  is  an  MS-DOS 
feature  that  al lows  you  to  set  aside  an  area  of  memory  that 
is  treated  as  if  it  were  a  disk  device.  In  this  option,  SMSS 
programs  run  from  floppy  drive  A,  but  the  student  data  base 
is  copied  into  VDISK  at  the  beginning  of  your  session  and 
copied  back  to  floppy  disk  at  the  end.  This  method  is  a 
compromise  between  the  other  two  options  both  in  terms  of 
speed  and  transportability. 

If  you’re  not  constrained  to  a  particular  mode  of  operation,  or 
haven’t  decided  how  you  will  configure  SMSS,  go  ahead  with  all  the 
following  setup  steps  to  allow  all  modes  of  operation. 

2.3  Setup  Steps 

Load  the  SMSSPROG  disk  into  drive  A  (the  upper  floppy  disk  drive) 
and  SMSSSTUS  into  drive  B  (the  lower  one).  Type  cd  a:  to  switch  to 
drive  A.  Perform  any  of  the  following  steps  that  are  applicable 
to  your  configuration. 

SETUP  HARD  DISK  --  If  you  will  run  SMSS  from  hard  disk,  you 
must  create  a  directory  and  copy  all  of  SMSS  to  it.  There  is 
a  routine  on  the  SMSSPROG  disk  to  do  this.  Type  hardset  to 
run  this  routine.  HARDSET  creates  a  subdirectory  called  SMSS 
and  copies  the  SMSSPROG  and  SMSSSTUS  disks  to  it. 

SETUP  SYSTEM  PATH  COMMAND  --  SMSS  is  designed  so  that  it  can 
run  from  any  subdirectory  or  disk.  Therefore,  SMART  must  be 
accessible  from  wherever  SMSS  is  working.  Type  in  the  system 
command,  path.  The  response  will  be  a  list  of  subdirectories 
which  MS-DOS  searches  to  find  program  names  entered  as 
commands.  The  directory,  Nssart,  must  be  among  this  list.  If 

it  is  not,  change  the  system  autoexec.bat  file  so  that  it 
includes  \saart  in  its  path  command.  See  your  MS-DOS  manual 
for  details  on  the  path  command  and  the  autoexec.bat  file. 

SETUP  VIRTUAL  DISK  --  If  you  are  going  to  run  SMSS  with  the 
virtual  disk  option  described  above,  you  must  define  an  area 
of  main  memory  to  set  aside  for  virtual  disk.  This  is  done 
in  the  system  config.sys  file.  See  the  MS-DOS  manual  for  a 
detailed  discussion  of  virtual  disk  and  the  config.sys  file. 
There  is  a  routine  on  the  SMSSPROG  disk  to  create  a  proper 
config.sys.  Type  vd i skset  to  run  this  routine.  To  activate 
the  newly  defined  virtual  disk  after  vdiskset  runs,  you  must 
re-boot  the  system  by  striking  the  "Ctrl”,  "Alt”,  8<  "Del" 
keys  simultaneously  (remove  the  floppy  disks  from  their 
drives  first).  As  long  as  this  config.sys  file  is  active, 
180Kb  of  main  memory  will  always  be  set  aside  for  virtual 
disk.  SMSS  will  run  on  the  standard  ACSC  Z158  computer  with 
this  memory  reserved,  but  some  other  very  large  applications 
may  not. 


SETUP  CONFIG.SYS  --  Whether  or  not  you  use  virtual  di  sk,  your 
config.sys  file  must  contain  a  "FILES=20"  command  and  a 
”BUFFERS=20"  command.  Vdiskset  inserts  these  commands  for 
you.  But,  if  you  do  not  run  vdiskset  because  you  don’t  want 
to  configure  virtual  disk,  you  must  manually  edit  config.sys 
to  insert  both  these  commands. 


Configuration 

Parity:  Even  Odd  None 
Stop  bits:  1  2 

Plotter  pen  speed  (1-10):  10 

-  Graphics  Display  Screens  - 

1  IBM  Color  Display  Adapter  6  Apricot-xi 

2  AT&T  6300  102  IBM  EGA  -  RGB 

3  IBM  3270  PC  103  IBM  EGA  -  enhanced/monochrome 

4  Hercules  110  Tandy  2000 

5  STB  Graphics  Plus  I  I (color)  201  IBM  Monochrome 

Graphics  display  screen  number:  1 

Paging  file  path:  c:\smartdat 

Application  data  paths 

Spreadsheet/Graphics:  c:\smartdat 

Word  Processor:  c:\smartword 
=  >  Data  Manager: 


FI  Help  F2  Edit  text  F3  Blank  text  F10  Finished 
conf i gur e 

CONFIGURE  -  change  configuration  settings 


Figure  2.1  SMART  Configure  Screen 


SETUP  SMART  DATA  PATH  --  SMSS  is  designed  to  operate  from 
whichever  directory  it  is  called  from.  For  example,  if  you 
are  running  from  floppy  disk,  you  would  first  enter  cd  a :  t 
make  drive  A  the  active  directory  before  calling  SMSS. 
Similarly,  if  you  wanted  to  run  from  hard  disk,  you  would 
first  enter  cd  \ssss  to  activate  the  SMSS  subdirectory.  But 
on  most  ACSC  2158  computers,  SMART  is  set  up  to  look  to  the 
floppy  drive  A  only  for  database  data.  Therefore,  you  must 
first  use  the  SMART  "configure"  command  to  set  up  SMART 


correctly.  Call  SMART  and  blank  out  the  Data  Manager 
application  data  path  by  keying  the  following  commands: 


ssart  (Enter) 

3 

c 

i 

( Space )  ( Enter ) 

FIO 

FIO 

ft 


Calls  SMART  main  menu 
Chooses  command  line  3 
Selects  the  "Configure"  command 
Repeat  the  down  arrow  until  you 
see  a  screen  display  like  fig  2.1 
Hit  the  space  bar  to  blank  out  the 
"Data  Manager"  field 

FIO  function  key  to  exit  "Configure" 
FIO  function  key  to  exit  main  menu 
Select  "Quit"  command  to  exit  SMART 


Blanking  the  Data  Manager  application  data  path  tells  SMART 
to  get  data  base  data  from  whichever  subdirectory  is  current 
when  SMART  is  called.  See  the  SMART  system  manual  for  details 
of  the  "configure"  command. 

2.4  Running  SMSS. 


To  run  SMSS,  you  must  be  "in"  the  directory  where  the  SMSS 
programs  reside.  In  other  words,  if  you  previously  loaded  the 
system  to  a  hard  disk  subdirectory  called  SMSS,  you  must  first 
use  the  MS-DOS  "chdir",  or  "cd"  (for  change  directory)  command  to 
make  SMSS  the  current  directory.  Once  there,  simply  type  the 
command,  sgss.  Here’s  an  example: 

cd  c:\siS8  (Enter)  Changes  to  the  hard  disk  subdi rectory,  SMSS 

8S88  (Enter)  Calls  SMSS 

If  you’re  running  SMSS  from  the  floppy  disk,  first  load  the 
SMSSPROG  diskette  in  drive  A,  then  type: 

aj_  (Enter)  Changes  to  the  floppy  drive 

8«B8  (Enter)  Calls  SMSS 

2.4.1  Disk  Option  Screen 

In  either  case,  control  will  pass  to  the  SMSS  project  file  in 
SMART  and  the  screen  shown  in  figure  2.2  will  appear.  This  screen 
Is  typical  of  the  menu  screens  that  appear  throughout  SMSS.  In 
this  one,  you  are  asked  to  tell  SMSS  what  disk  option  you  are 
using:  floppy,  hard,  or  floppy  with  virtual  disk.  To  select  an 
option,  move  the  arrow  to  your  choice  with  the  ”f "  (up  arrow)  or 

"4"  (down  arrow)  keys,  then  press  the  "Enter"  key.  You  can  also 

press  the  "Esc"  key  to  choose  the  default  (hard  disk)  option  and 
continue  to  the  next  screen.  To  get  helpful  information  about  this 
menu  displayed  on  the  screen,  you  can  press  the  (upper  or  lower 
case)  "H"  key  for  help.  Help  screens  are  described  in  detail  in 
paragraph  2.4.3  below. 
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WELCOME 

TO 

SMSS 


menu  level  0 


IL . .  II 

CHOOSE  DISK  OPTION 

=>  1.  FLOPPY  DISK  ONLY  a: (programs) , b: ( student  file) 

2.  HARD  DISK  c:  programs  &  student  file 

3.  FLOPPY  AND  VD1SK  a :( programs ), d :( student  file) 


***  DEFAULT  (Esc)  IS  OPTION  2  »* * 


Enter  h  for  HELP,  Esc  to  exit  to  next  menu 


Figure  2.2  Disk  Option  Screen  Display 


2.4.2  ShSS  Main  Menu. 

After  indicating  your  disk  configuration,  You’ll  see  some  student 
data  records  flash  on  the  screen  as  SMSS  loads  the  student  and 
other  files.  Note  that  in  the  lower  right  hand  corner  of  the 
display  you  see  messages  such  as,  "LOADING  STUDENT  FILE".  These 
are  simply  information  messages  to  let  you  know  that  SMSS  is 
performing  some  action  and  is  not  waiting  for  keyboard  input.  The 
next  menu  to  appear  is  the  main  menu  as  shown  in  figure  2.3.  Its 
three  options:  "File  Maintenance",  "Perform  Mixing",  and  "Produce 
Reports"  are  major  subsections  of  SMSS.  Each  is  described  In 
subsequent  chapters.  Every  menu  in  SMSS  looks  essentially  like 
this  one  and  is  subject  to  the  following  general  menu  option 
selection  rules. 

2.4.3  Menu  Selection  Rules. 

When  selecting  options  from  an  SMSS  menu,  the  only  valid  keyboard 
inputs  are  the  up-arrow  (f ) ,  down-arrow  (4),  "Enter",  "H"  (upper 
or  lower  case),  and  "Esc"  keys.  All  other  keys  will  cause  an 
audible  warning  beep.  Here  are  the  meanings  of  the  valid  keys: 

UP  OR  DOWN  ARROW  --  Use  these  keys  to  move  the  display 
pointer  up  or  down  to  the  option  you  want  to  select.  The 
pointer  will  wrap  around  if  moved  below  the  last  option  or 
above  the  first  option. 


ENTER  --  Striking  the  "Enter"  key  selects  whichever  option 
the  display  pointer  is  pointing  to. 

ESC  --  This  key  causes  SMSS  to  "pop  back"  to  the  last  menu 
displayed.  "Escaping"  from  the  main  menu  (figure  2.3)  is  the 
way  to  exit  from  SMSS.  Exit  is  to  the  SMART  data  manager. 
From  there,  an  "F10"  and  "Q"  (for  "quit")  will  exit  back  to 
MS-DOS.  The  one  exception  to  the  "pop  back"  rule  is  the  disk 
option  menu  (figure  2.2).  Escaping  from  that  menu  pops 
forward  to  the  main  menu. 

H  --  The  "H"  (or  "h")  key  calls  for  a  help  screen.  Each  menu 
in  SMSS  has  an  associated  help  screen  that  explains  the 
option  selections.  The  next  paragraph  describes  how  to 
manipulate  the  help  screens. 


I.*  -  menu  level  1 

WELCOME 

TO 

SMSS 

OPTIONS 

=>  1. 

FILE  MAINTENANCE 

2. 

PERFORM  MIXING 

3. 

PRODUCE  REPORTS 

Enter  h  for  HELP,  Esc 

to  exit  to  last  menu 

Figure  2.3  SMSS  Main  Menu 


2.4.4  Help  Screens. 

SMSS  is  somewhat  se 1 1 -documenting  since  you  can  call  up 
information  explaining  each  menu  option  by  pressing  the  "H"  key. 
Figure  2.4  is  an  example  of  a  help  display  for  the  main  menu,  if 
there  is  more  than  one  page  to  the  help  display,  move  back  and 
forth  between  pages  with  the  "Pg  Dn"  and  "Pg  Up"  keys.  You  can 
print  the  screen  by  holding  down  the  "Shift"  key  and  pressing  "Prt 
Sc”.  Return  to  the  menu  with  the  "Esc"  key.  These  instructions 
are  printed  at  the  bottom  of  the  boxed  area  on  each  help  display. 
Help  displays  are  implemented  in  SMSS  as  screens  of  a  dummy  data 
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base  called  HELP.  When  you  press  the  "H"  key,  SMSS  performs  a 
SMART  "update"  command  on  this  data  base.  Since  there  is  no  data 
in  HELP,  the  update,  and  hence,  the  SMART  function  key  operations 
( F2 , F3 , . . . , FI 0 )  displayed  at  the  bottom  (below  the  double  line  ) 
of  screen  are  meaningless.  Use  only  the  commands  defined  above. 


Window  1 


CHOOSE  DISK  OPTION  HELP  SCREEN 


page  1  of  2  HELPO 


GENERAL:  SMSS  can  be  run  fros  either  of  3  different  disk  configurations  using 
floppy  disk,  hard  disk  and/or  virtual  (in-neaory)  disk,  sonetlaes  called  rao- 
dlsk.  Each  configuration  has  certain  benefits  and  constrains  in  speed  and 
transportability.  The  options  are  described  as  follows: 


1.  FLOPPY  DISK  ONLY:  The  ShSS  system  is  too  big  to  fit  on  one  360kB  floppy 
diskette.  In  this  option,  the  SMSSPROG  diskette  should  be  loaded  in  drive 
a:  (the  upper  floppy  drive)  and  the  SMSSSTUS  diskette,  containing  the 
student  data  base  should  be  in  drive  b:  (the  lower  floppy  drive).  You  oust 
have  called  SMSS  from  drive  a:.  This  is  the  slowest  option  but  it  is  very 
transportable  from  one  machine  to  another. 


2.  HARD  DISK:  This  is  the  fastest  and  preferable  way  to  run  SMSS.  You  must 
have  previously  created  a  directory  on  drive  c:  (hard  or  Bernouli)  and 
copied  the  SMSSPROG  &  SMSSSTUS  diskettes  to  it.  Also,  you  must  have  been 


Pg  Dn  for  next  page;  Esc  to  return;  Shift/Prt  Sc  to  print 


Figure  2.4  Example  Help  Display 
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File  Maintenance 


This  chapter  describes  the  functions  that  are  performed  in  the 
file  maintenance  section  of  SMSS.  File  maintenance  functions  are 
those  used  to  build  and  maintain  the  student  and  environment 
files.  When  you  select  FILE  MAINTENANCE  from  the  main  menu, 
figure  3.1  will  appear  on  the  screen.  The  eight  functions  shown 
are  described  in  the  subsequent  paragraphs.  Exit  the  file 
maintenance  section  by  pressing  the  "Esc"  key  at  the  file 
maintenance  menu.  Control  will  pass  back  to  the  main  menu. 
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FILE 

MAINTENANCE 

OPTIONS 

=> 

1 . 

BUILD  STUDENT  RECORDS  FROM  ANOTHER 

DISK 

2. 

ADD  STUDENT  RECORDS  MANUALLY 

3. 

EDIT  EXISTING  STUDENT  RECORD 

4. 

DELETE  STUDENT  RECORD 

5. 

DESIGNATE  STUDENT  NUMBERS 

6. 

EDIT  ENVIRONMENT  RECORD  (MIXING  RULES) 

7. 

DELETE  IO’S  (FOR  MIX  3) 

8. 

POST  MIXER  TENTATIVE  ASSIGNMENTS 

Enter  h  for  HELP,  Esc  to  exit  to  last 

menu 

Figure  3.1  File  Maintenance  Menu 


Build  Student  Records  froa  Another  Disk 


This  operation  builds  much  of  the  student  file  and  is  generally 
the  first  SMSS  function  to  be  performed  prior  to  the  start  of  each 
academic  year.  The  personnel  office  at  Headquarters,  Air 


University  (AU)  can  provide  data  on  each  active  duty  Air  Force 
student  projected  into  ACSC.  Contact  AU/DPXM  at  extension  6272  to 
request  this  data.  They  have  direct  access  into  the  central  Air 
Force  personnel  computer  at  the  Air  Force  Military  Personnel 
Center,  but  you  should  give  them  a  week  or  two  lead  time.  SMSS 
expects  this  data  on  a  single  file  on  a  floppy  diskette  in  the 
ASCII  data  format  discussed  in  the  SMART  Data  Base  Manager 
Reference  Guide,  page  Read-1.  Note  that  only  fields  1  through  27 
(see  Appendix  One)  of  the  student  file  are  read  in  from  floppy 
disk.  All  other  fields  are  computed  by  the  system  or  entered 
manua 1 1 y . 


SMSS 


BUILD  STUDENT  FILE 


menu  level  111 


This  option  allows  you  to  build  the  student  file  by 
reading  student  records  from  an  ASCII  floppy  disk  file 
See  the  SMSS  users  manual  for  the  correct  format  of 
this  file.  You  can  build  the  student  file  from 
scratch  or  you  can  add  new  records  to  the  end  of  the 
existing  file. 

**  * »  *UARN I NG*  »*  »  » 

If  you  build  from  scratch,  any  records  in  the  current 
student  file  will  be  lost. 


OPTIONS 

1.  BUILD  STUDENT  FILE  FROM  SCRATCH 

2.  ADD  RECORDS  TO  STUDENT  FILE 


Enter  h  for  HELP,  Esc  to  exit  to  last  menu 


Figure  3.2  Build  Student  File  Menu 


After  you  select  the  BUILD  STUDENT  RECORDS  option  from  the  SMSS 
file  maintenance  menu,  you  will  see  figure  3.2.  This  menu  gives 
you  the  option  of  either  totally  starting  from  scratch  or  adding 
new  student  records  from  the  floppy  disk  to  the  student  file.  If 
you  choose  the  first  (start  from  scratch)  option,  all  existing 
records  will  be  erased.  Note  --  you  can  use  the  "copystu"  command 
described  in  paragraph  6.1  to  save  the  previous  data  base  if 
necessary.  Next,  SMSS  will  ask  you  for  the  name  of  the  file  on 
the  floppy  diskette.  If  you  don’t  know,  back  out  of  SMSS  and  use 
the  MS-DOS  ”dir  a:”  command  to  display  the  diskette  directory. 
After  one  more  warning  message  to  make  sure  you  understand  what 
you’re  doing,  SMSS  will  ask  you  to  load  your  diskette  into  drive 


A,  read  the  diskette  and  build  new  records  into  the  student 
file.  If  you  are  running  SMSS  from  floppy  disk,  there  will  be 
some  disk  switching  ordered  --  Just  follow  the  directions  on  the 
screen.  This  operation  takes  several  minutes  and  is  completed  when 
the  file  maintenance  menu  reappears. 

3.2  Add  Student  Records  Manually 

Unfortunately,  the  whole  student  file  cannot  be  built  with  the 
option  of  paragraph  3.1.  AU/DPXM  can  only  give  us  automated  data 
on  active  duty  Air  Force  students.  Information  on  international 
officers,  other  service  officers,  civilians,  guardsmen,  and 
reservists  must  be  entered  manually  from  the  keyboard.  Choose 
this  option  to  type  in  one  or  more  student  records.  A  data  entry 
form  like  the  one  in  figure  3.3  will  appear  and  the  cursor  will 
move  to  the  first  field  on  the  form.  You  simply  type  the  correct 
information  into  each  field.  See  Appendix  One  for  the  meaning  and 
data  ranges  of  each  field.  You  cannot  enter  anything  into  the 
last  column,  "COMPUTED  FIELDS",  since  these  values  are  computed  by 
the  system  based  on  other  information  in  the  record. 
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Figure  3.3  Student  Record  Data  Entry  Form 


SMSS  uses  the  SMART  "enter"  command  to  implement  this  option.  See 
the  SMART  Base  Manager  Reference  Guide,  page  Enter-3  for  the 
meaning  of  the  many  helpful  movement  and  editing  keys,  some  of 
which  are  listed  at  the  bottom  of  the  screen.  When  you  are  done 
entering  records,  press  the  "F10"  function  key  to  return  to  the 
file  maintenance  menu. 

3.3  Edit  Existing  Student  Record 

Select  this  option  to  change  any  of  the  fields  in  an  existing 
student  record.  You  will  see  the  menu  shown  in  figure  3. A,  which 
will  ask  you  to  identify  a  particular  student  record  to  edit.  You 
can  select  a  record  by  name,  social  security  number  (SSAN),  or 
student  number  (we’ll  assign  student  numbers  later).  Choose  one 
and  a  box  will  appear  in  which  to  enter  the  search  value.  You 
need  not  enter  a  complete  name,  but  the  SSAN  or  student  number 
must  be  complete.  SMSS  will  find  the  record  and  display  it  in  a 
form  like  that  of  figure  3.3.  If  the  record  is  not  found,  you’ll 
see  an  error  message  and  control  will  return  to  the  file 
maintenance  menu.  If  found,  the  SMART  "update"  command  is  used  to 
edit  the  record.  Use  the  editing  keys  described  in  the  SMART  Data 
Base  Manager  Reference  Guide,  page  Enter-3.  When  finished,  press 
the  "F10"  function  key  to  save  the  changes  and  return  to  the  file 
maintenance  menu.  Note  that  you  cannot  edit  the  NAME,  S£'N,  or 
STU.NO  fields  since  these  are  data  base  key  fields.  If  you  must 
change  these  fields,  use  SMART  to  load  the  STUDENTS  file  with 
screen,  STUDENT2 ;  then  ’’update"  to  edit  fields  and  update  keys. 
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Enter  h  for  HELP,  Esc  to  exit  to  last  menu 


Figure  3.4 


Record  Selection  Menu 


3.4  Delete  Student  Record 


Use  this  option  to  delete  a  record  if  a  student  disenrolls  or  you 
enter  an  erroneous  record.  You’ll  see  the  menu  shown  in  figure 

3.4  which  will  ask  you  to  identify  a  particular  student  to  delete. 
Recommend  you  use  SSAN  or  student  number  to  be  precise.  If  that 
record  is  not  found  you’ll  see  an  error  message  and  control  will 
pass  to  the  file  maintenance  menu.  If  found,  the  record  is  deleted 
using  the  SMART  "delete"  command.  Note  that  deleted  records  are 
not  actually  physically  dropped  from  the  student  file.  You  can 
recover  a  deleted  record  by  manually  using  the  SMART  "delete” 
command . 

3.5  Designate  Student  Nuabers 

ACSC  uses  student  numbers  internally  to  identify  students.  Once 
you’ve  created  the  entire  student  file,  use  this  option  to  assign 
student  numbers.  The  file  is  ordered  alphabetically  and 
sequential  multiples  of  five  (0005,  0010,  0015,...)  are  generated 
into  the  STU.NO  field.  If  you  add  students  after  performing  this 
operation,  run  it  again  to  regenerate  numbers.  Once  numbers  are 
issued  to  students,  however,  you  should  not  run  this  again,  since 
everyone’s  assigned  number  will  change.  Note  that  you  cannot  do 
any  mixing  before  student  numbers  are  assigned  because  the  mixing 
program  identifies  students  by  student  number.  You’ll  get  a 
warning  message  to  make  sure  you  really  want  to  perform  this 
operation;  then,  when  completed,  the  file  maintenance  menu  will 
appear . 

3.6  Edit  Environment  Record 

SMSS  maintains  an  environment  record  (in  the  ENVIRON  file)  used  to 
pass  control  Information  to  the  mixing  program.  With  this  record 
you  tel  1  the  mixer: 

Which  mix  (1,2  or  3)  to  process 
Relative  priorities  of  mixing  rules 
Organizational  structure  of  the  school 

You  must  have  edited  the  environment  record  before  mixing.  There 
are  four  pages  to  the  environment  record  data  entry  form  shown  in 
figures  3.5,  3.6,  3.7,  and  3.8.  When  you  choose  this  option,  SMSS 

uses  the  SMART  "update"  command  and  displays  page  one  on  the 
screen.  Enter  or  change  the  following  fields  depending  on  the  mix 
environment  you  desire: 

MIX  NUMBER  --  The  mixer  uses  different  algorithms  depending  on 
which  of  the  three  annual  mixes  it  is  working  on.  Enter  a  value 
of  1,  2,  or  3  here. 

MAX  NUMBER  OF  PREVIOUS  SEMINAR  MATES  --  The  mixer  avoids  assigning 
together  students  who  have  previously  been  assigned  together  in 


past  seminars.  Enter  here,  the  number  of  pr e v i ous 1 y -ass i gned - 
together  students  you  want  to  allow  in  each  seminar.  The  number 
must  be  from  2  through  9.  If  the  mixer  is  force  to  violate  this 
rule,  it  will  issue  a  warning  message 

SYSTEM  MIXING  RULES  AND  PRIORITIES  --  Students  are  mixed  according 
to  a  set  of  adjustable  mixing  rules.  The  rules  shown  on  page  1  of 
the  environment  record  (figure  3.5)  are  system-wide  rules  as 
foil ows : 

AR I  --  Airpower  Research  Institute  students  should  not  change 
seminars.  Enter  9  to  honor  this  rule.  Any  other  value  (from  0 
to  8)  will  be  treated  as  a  student  mixing  rule  (see  below), 
and  AR 1  students  will  be  mixed  like  any  other  student 
at  t  r i bute . 

SOS  --  Squadron  Officer  School  instructors  should  not  change 
seminars.  (  9  to  honor,  any  other  to  mix  SOS  instructors) 

10  --  International  Officers  should  not  change  seminars.  (9 
to  honor,  any  other  to  mix  IO's) 

BUDDIES  --  How  important  is  it  (which  priority)  that  the 
number  of  students  in  the  MAX-NUMBER-OF-PREV I OUS-MATES  field 
not  be  assigned  together?  This  feature  is  currently  not 
implemented,  and  is  treated  as  a  9  (highest)  priority 
regardless  of  what  you  enter  here. 

SEMCHANGE  --  All  other  students  (not  AR I ,  SOS,  10)  must 
change  seminars.  (9  to  honor,  any  other  to  ignore).  This 
feature  is  not  currently  implemented.  All  other  students 
will  always  change  seminars. 

STUDENT  MIXING  RULES  AND  PRIORITIES  --  The  mixing  program’s 
primary  task  is  to  distribute  students  equitably  among  seminars 
according  to  attributes  and  skills  each  student  possesses.  There 
are  23  such  attributes  shown  in  figures  3.6  and  3.7.  The 
priorities  you  assign  to  each  attribute  define  how  the  mixer  will 
operate.  It  first  "spreads-out"  all  the  students  with  priority 
nine  attributes,  then  the  eights,  and  so  on  down  through  priority 
ones.  Thus  it  is  more  likely  that  students  with  high  priority 
attributes  will  be  distributed  evenly  among  seminars.  Students 
with  low  priority  attributes  are  more  likely  to  "bunch  up" 
together.  For  example,  if  the  school  determines  that  it  is  very 
important  that  pilots  are  spread  out  among  seminars,  give  the 
PILOT  attribute  rule  a  relatively  high  priority  number.  Similarly, 
if  it  is  less  Important  that  students  with  PPBS  experience  are 
uniformly  distributed,  give  the  PPBS  attribute  a  relatively  low 
priority  number.  The  actual  values  from  9  down  to  i  are 
unimportant  --  only  the  relative  values  among  the  priorities  are 
important.  A  priority  of  0  (zero)  means,  "do  not  consider  this 


attribute  at  all  in  mixing”.  By  experimenting  with  different 
priority  relationships,  you  can  adjust  the  mixer  output. 

The  five  "TBD”  (To  Be  Determined)  fields  in  figure  3.7  allow  the 
system  to  respond  to  changing  school  mixing  requirements.  For 
example,  assume  that  in  the  future,  the  school  determines  that  it 
is  important  to  spread  out  students  with  joint  organization 
experience.  After  you  identify  these  students,  you  can  use  the 
EDIT  STUDENT  RECORD  option  to  mark  these  records  with  a  "Y”  in  the 
TBD1  field.  Then,  edit  the  environment  record  to  assign  that 
attribute  a  mixing  priority  and  enter  "Joint  Experience"  in  the 
TBD1  description  field  to  indicate  what  TBD1  is  being  used  to 
represent.  As  long  as  the  TBD  fields  are  not  being  used,  their 
priorities  should  be  zero. 


=  Window  1  -  = .  = 

Used  to  update  the  single- 
record  Environment  file. 


MIX 

ENVIRONMENT 

RECORD 


Page  1  of  4 


Enter  MIX  number...  3_  (1,2,  or  3) 

Enter  MAX  NUMBER  of  PREVIOUS  SEMINAR  MATES  to  mix  together  3_  (2  thru  9) 
Following  are  mix  rules  &  priorities.  Mixing  will  be  done  in  priority  order. 

9  is  the  highest  pr i or i ty , down  to  1  (lowest).  Priority  0  means  don’t  consider. 


PRIORITY 


ARI 

SOS 

1C 

BUDDIES 

SEMCHANGE 


DESCRIPTION 

ARI  students  don’t  change  seminars 
SOS  students  don’t  change  seminars 
10s  don’t  change  seminars 

No  more  than  above  number  of  ex-mates  in  seminar 
Must  change  seminar 


(Experience/Background  rules  on  next  page - hit  Pg  Dn) 


1  riser  t  OFF  F? 

-  P  r  e  v 

fid 

F5 

Prev  rec 

F7 
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de 1 ete 

F9  -  Repeat  fid 

F2  Date  F4 

-  Next 

fid 

F6  - 

Next  rec 

F8 

-  Fid 

reform 

F10  -  Finished 

File:  environ 

Window: 

;  1 

Page: 

1  Rec: 

EOF  (  1  )  Act:  Y 

Figure  3.5  Environment  Record  Page  1 


SEMINAR  STRUCTURE  --  The  fourth  page  (figure  3.8)  of  the 
environment  record  is  used  to  define  the  organization  of  the 


I 

I 

i 

» 

school.  Enter  here  the  first  (lowest  numbered)  and  last  (highest 
numbered)  seminar  numbers  in  each  squadron.  If  any  seminars  are 
missing  from  that  range,  (as  they  might  in  mix  3  after  the 
international  officers  depart),  you  can  designate  up  to  three 
missing  seminar  numbers. 

Finally,  after  the  environment  record  is  set  like  you  want  it, 
press  the  "F10"  function  key  to  save  the  changes  and  return  to  the 
file  maintenance  menu. 
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RULE 

PRIORITY 

DESCRIPTION 

1 

USAF 

0_ 

Line  AD  Air  Force 

NOMAST 

O 

JL 

No  advanced  Degree 

SORG 

4_ 

HQ  (>=Majcom)  Experience 

PILOT 

6_ 

Any  Pilot 

NAV 

6  _ 

Any  Navigator 

SINGLE 

S_ 

Anyhow  Unaccompanied 

i 

USAFA 

2_ 

USAFA  (academy)  grad 

1 

ARMY 

9_ 

Army 

OTHERCOMP 

8 

Res , ANG, Ci v , USMC, or  Navy 

i 

|M I  NOR  1 TY 

S 

Black  or  other 

FEMALE 

5 

Fema 1 e 

CAPTAIN 

5_ 

Current  captains 

NONLINE 

7_ 

Medical, 1 ega 1 , chap  1 ain 

H  (More  on 

k 

next  page. .Hit 

Pg  Dn) 

Insert  ON 

F3  -  Prev  fid 

F5  -  Prev  rec  F7  -  Fid  delete 

F9  -  Repeat  fid 

F2  -  Date 

F4  -  Next  fid 

F6  -  Next  rec  F8  -  Fid  reform 

F10  -  Finished 

File:  environ  Window:  1 

Page:  2  Rec: 

EOF  (  1  )  Act:  Y 

Figure  3.6  Environment  Record  Page  2 
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MIX  ENVIRONMENT  RECORD’:  Page  3  of  4 


llRULE 


PRIORITY 


DESCRIPTION 


STRATOPS  9_  Bomber  or  missile  exp _ 

TACOPS  9_  Fighter  pilot  or  USO _ 

PPBS  9_  PPBS  experience _ 

ACQLOG  9_  Acq/Log  experience _ 

SPACE  6_  Space  experience _ 

***«x»****t*t*Fol lowing  Can  Be  Defined  Later  if  needed*»**»****»»*»»*» 

TP.D1  0  unassigned _ 

TBD2  0_  unassigned _ 

TBD3  0  unassigned _ 

TBD4  0_  unassigned _ 

TBD5  0_  unassigned _ 


Next  Page  is  for  designating  school  structure. .. hi t  Pg  Dn 
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Figure  3.7  Environment  Record  Page  3 
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MIX  ENVIRONMENT  RECORD  Page  4  of  A 


SEMINAR  STRUCTURE 


SMSS  can  account  for  a  variable  number  of  seminars  in  each  of  4  Squadrons. 
Enter  the  first  (lowest  numbered)  and  last  (highest  numbered)  seminar  numbers 
below  for  each  squadron.  Also,  you  can  designate  up  to  3  missing  seminars 
per  squadron.  Missing  seminars  must  be  within  the  first/last  range. 


FIRST 


MISSING 


SQUADRON 

SEMINAR 

SEMINAR 

SEMII 

3821 

1 

11 

1 

3822 

12 

OO 

22 

3823 

23 

33 

25 

3824 

34 

44 

40 

*#*##end*»*»* 
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F2  -  Date  F4 

-  Next  fid 

F6 

-  Next  rec 

F8 

-  Fid 

reform 

F10  -  Finished 

File:  env  i  r  on 

Window:  1 

Page: 

4  Rec : 

EOF  (  1  )  Act:  Y 

Figure  3.8  Environment  Record  Page  4 


3.7  Delete  International  Officers 

International  officers  (IO’s)  graduate  before  the  end  of  the 
academic  year.  Choose  this  option  to  delete  10  records  after  they 
graduate.  After  a  warning  message  to  double  check  that  you  really 
want  to  do  this,  the  operation  is  completed  when  you  see  the  file 
maintenance  menu  reappear. 

3.8  Post  Mixer  Tentative  Assignments 

The  mixing  program  only  makes  tentative  seminar  assignments. 

Thus,  after  a  mix,  you  can  examine  the  mixing  results  and  rerun  it 
or  make  manual  adjustments,  if  necessary.  M I XX  is  the  tentative 
seminar  assignment  field  in  the  student  file.  When  the  mix  is 
acceptable,  use  this  option  to  move  M I XX  values  into  MIX1,  MIX2,or 
MIX3,  thereby  making  the  mix  assignment  permanent.  Also,  the 
mixer  sets  fields  SLX  and  ASLX  to  a  value  of  "Y"  if  the  student 
would  be  a  seminar  leader  or  assistant  seminar  leader, 
respectively,  in  the  new  mix.  This  option  updates  fields  SL  and 


MOV  '.iJV 


ASL  based  on  SLX  and  ASLX,  as  well.  After  selecting  the  option, 
you’re  asked  to  enter  a  value  of  1,  2,  or  3  to  indicate  which  mix 

to  post. 


Chapter  Four 


Perfori  Mixing 

When  the  student  file  has  been  built  and  the  environment  record 
reflects  the  proper  mixing  arguments,  you  are  ready  to  mix  the 
students  into  their  seminar  assignments.  Mixing  is  accomplished  by 
selecting  option  2,  the  PERFORM  MIXING  option,  from  the  main  menu 
of  figure  2.3. 

4.1  The  SMART/Mixer  Interface 

As  mentioned  in  Chapter  One,  SMART  is  not  capable  of  performing 
the  complex  operations  of  student  mixing.  Therefore,  SMSS 
contains  a  mixing  program  (the  mixer)  written  in  GW-BAS1C  which 
operates  directly  under  MS-DOS.  The  mixer  cannot  read  the  student 
file  or  environment  record  directly  since  these  are  in  a  special 
SMART  data  base  manager  format.  Therefore,  we  use  the  SMART 
"write"  command  to  create  two  files,  STU.ASC  and  ENV.ASC,  which 
contain  selected  student  and  environment  information  in  a  form 
that  is  readable  by  the  mixer.  When  you  select  the  PERFORM  MIXING 
option, 


SMSS  MIXING  OPTION 


menu  level  12 


If  there  have  been  no  changes  to  the  student  file 
since  the  last  mixing  run,  you  can  skip  the  ASCII  file 
update.  If  there  have  been  changes,  or  you  don’t  know, 
be  safe  by  running  the  ASCII  file  update. 


OPTIONS 

=>  1.  SKIP  ASCII  FILE  UPDATE 

2.  RUN  ASCI!  FILE  UPDATE 


Enter  h  for  HELP,  Esc  to  exit  to  last  menu 


Figure  4.1  Mixing  Option  Menu 


SMSS  creates  these  files  and  passes  control  to  the  mixer,  outside 
of  SMART.  The  mixer  then  produces  a  results  file  called 
STUOUT.ASC  and  passes  control  again  to  SMART,  which  updates  the 
student  file  with  the  mix  results  in  STUOUT.ASC. 

4.2  SMSS  Mixing  Menu 

Select  the  PERFORM  MIXING  option  from  the  main  menu  and  you  will 
see  the  two-option  mixing  menu  shown  in  figure  4.1.  SMSS  asks  you 
here  if  you  want  to  skip  the  creation  of  the  STU.ASC  file.  If  you 
have  mixed  before  and  have  since  made  no  changes  to  the  student 
file,  you  can  save  a  little  time  by  not  writing  STU.ASC  since  it 
will  not  have  changed  since  the  last  time  you  mixed.  In  this  case, 
select  option  1,  SKIP  ASCII  FILE  UPDATE.  Otherwise,  select  option 
2,  RUN  ASCII  FILE  UPDATE. 

4.3  Mixing  Sequence  of  Operations 

From  this  point  on,  mixing  is  essentially  a  "hands-off"  operation 
that  requires  no  user  input.  You  can  track  the  following 
operations  by  watching  the  explanatory  messages  at  the  bottom  of 
the  display  screen. 

1.  SMART  sorts  the  student  file  by  rank  and  date  of  rank. 

2.  SMART  writes  ENV.ASC,  the  environment  record  interface 
file  for  the  mixer. 

3.  If  you  requested  it,  SMART  writes  the  student  interface 
file,  STU.ASC. 

4.  SMART  relinquishes  control  and  the  mixer  is  called. 

5.  The  mixer  asks  whether  or  not  to  turn  off  trace  output. 
Trace  output  "on"  will  cause  a  trace  of  mixing  events  to  be 
displayed  on  the  screen.  Mixing  performed. 

6.  If  there  is  an  abort  exit  from  the  mixer,  the  whole 
process  stops  in  MS-DDS. 

7.  If  successful  exit,  control  passes  to  SMART.  SMART  reads 
the  output  interface  file  (STUOUT.ASC)  into  a  data  manager 
file  called  NEWMIX. 

8.  Student  file  fields,  MIXX,  SLX,  and  ASLX  are  updated  from 
NEWMIX  using  the  SMART  "transaction"  command. 

9.  Control  passes  to  the  main  menu. 

This  whole  process  will  take  several  minutes,  so  be  patient.  When 
complete,  the  MIXX  field  of  each  student  record  will  contain  the 
tentative  seminar  number  of  assignment.  SLX  will  contain  "Y"  If 


the  student  is  designated  a  Seminar  Leader  in  the  new  mix.  ASLX 
will  be  " Y"  if  he/she  is  designated  as  Assistant  Seminar  Leader. 
These  tentative  assignments  are  not  made  permanent  until  you 
perform  the  POST  MIXER  TENTATIVE  ASSIGNMENTS  option  of  paragraph 
3.8. 


Chapter  5 


Produce  Reports 

SMSS  produces  two  types  of  reports: 

(1)  Mixing  summary  reports  that  show  the  results  of  a  mix. 

(2)  Alphabetically  sorted  student  rosters. 

The  mixing  summary  reports  are  usually  produced  after  y  u  have 
mixed  the  students.  These  summaries  show  whether  you  have 
produced  a  "balanced”  distribution.  If  not,  you  can  make  manual 
changes  to  the  tentative  seminar  assignments,  or  you  can  re-mix 
after  adjusting  mix  rule  priorities  as  in  paragraph  3.6.  The  alpha 
rosters  can  be  run  at  any  time  to  support  school  operations. 


SMSS  REPORTS  OPTION 


menu  level  13 


Choose  which  mix  to  report  on. 
OPTIONS 


==>  1  .  M  I  X 1 

2.  MIX2 

3.  MIX3 

4.  MIXX  (Tentative  mix  results  of  last  mixer  run) 


Enter  h  for  HELP,  Esc  to  exit  to  last  menu 


Figure  5.1  Report  Mix  Selection  Menu 


5.1  Report  Selection  Menus 

When  you  select  the  PRODUCE  REPORTS  option  from  the  main  menu, 
figure  5.1  will  appear.  Here,  you  simply  tell  SMSS  which  mix  you 
will  be  reporting  on.  Remember  that  MIXX  is  the  tentative  seminar 


assignment  field.  Generally,  you  will  choose  MIXX  when  you  want 
the  results  of  the  last  mixing  run.  After  choosing  a  mix,  you 
will  see  the  reports  selection  menu  of  figure  5.2.  Choose  which 
report  you  want  from  this  menu.  The  rest  of  the  paragraphs  in 
this  chapter  deal  with  each  of  these  report  options. 


=>  1 . 

SMSS  REPORTS  OPTION 

OPTIONS 

SCHOOL  MIXING  SUMMARY 

menu  level  131 

2. 

SQUADRON  MIXING  SUMMARY 

3. 

SEMINAR  MIXING  REPORT 

4. 

COMPLETE  MIXING  REPORT  (all 

the  above) 

5. 

SCHOOL  ALPHA  ROSTER 

6. 

SQUADRON  ALPHA  ROSTER 

7. 

SEMINAR  ALPHA  ROSTER 

Enter 

h  for  HELP,  Esc  to  exit  to 

last  menu 

Figure  5.2  Reports  Selection  Menu 


The  mixing  summaries  (options  1  and  2)  each  produce  one  page  of 
output  and  are  always  directed  to  the  printer.  For  all  other 
reports,  you  will  see  the  Report  Output  Selection  Menu  shown  in 
figure  5.3.  Choose  whether  you  want  the  output  sent  to  the 
printer,  a  disk  file,  or  the  display  screen.  If  you  choose 
"DISK",  you  will  be  prompted  to  enter  a  file  name.  Enter  a  eingl 
file  name  or  complete  path  name  ,  but  do  not  include  a  file 
extension  since  SMART  appends  the  extension,  " . PRT" ,  to  the  name 
you  enter.  This  option  is  implemented  using  the  SMART  "report 
print"  command.  See  the  SMART  Data  Base  Manager  Reference  Guide, 
page  Report-25,  for  details.  With  the  ""DISK"  option,  you  can 
later  print  the  file  you  produce  with  the  MS-DOS  "print"  command. 
Before  you  print,  however,  enter  cospres  to  put  the  printer  in 
compressed  text  mode.  COMPRES.EXE  is  a  program  supplied  on  the 
SMSSPROG  disk. 


REPORT  OUTPUT 
SELECTION 


menu  level  1311 


Choose  Where  you  want  report  output  sent 

OPTIONS 

=>  1.  PRINTER 

2.  DISK 

3.  SCREEN 

Default  (Esc)  is  PRINTER 
Enter  h  for  HELP,  Esc  to  exit  to  next  menu 


Figure  5.3  Report  Output  Selection  Menu 


5.2  School  Mixing  Summary 

This  is  a  one-page  report  (figure  5.4)  that  totals  the  23  student 
attributes  by  squadron.  Each  line  represents  a  student  attribute 
defined  in  the  environment  record.  Use  this  report  when 
developing  mix  one  to  determine  if  each  squadron  has  a  reasonable 
distribution  of  students.  This  report  only  goes  to  the  printer. 

5.3  Squadron  Mixing  Suaaary 

This  report  (figure  5.5)  is  similar  to  the  School  Mixing  Summary, 
but  it  displays  a  column  for  each  seminar  in  a  particular 
squadron.  After  selection,  SMSS  will  ask  for  a  squadron  number  -- 
Enter  1_,  2,  3,  or  4.  Use  this  report  to  evaluate  the  distribution 
of  students  into  seminars  across  a  squadron.  This  report  only  goes 
to  the  printer. 

5.4  Seainar  Mixing  Report 

The  Seminar  Mixing  Report  for  a  single  seminar  is  shown  in  figure 
5.6.  There  is  one  line  for  each  student  in  the  seminar  and  each 
column  represents  one  of  the  student  mixing  attributes,  printed  at 
the  top  of  each  page.  A  value  of  "1"  in  any  column  indicates  that 
the  student  possesses  that  attribute.  Students  are  listed  in 
seminar  leader  selection  order.  That  is,  the  first  student  who  has 
not  previously  been  a  seminar  leader  (indicated  by  a  "Y"  in  the  SL 
field)  would  be  the  seminar  leader  in  this  mix.  When  you  choose 
this  option,  SMSS  asks  you  for  the  seminar(s)  to  report  on.  Your 
answer  can  be  one  of  three  options.  Enter, 

29 


ALL  -  -  to  list  all  seminars  in  the  school. 

SQn  (where  n=  1^,  2,  3,  or  4)  --  to  list  all  the  seminars  in  a 

particular  squadron. 

Seminar  number  (e.g.,  33)  --  to  list  a  single  seminar. 


SCHOOL  MIX  STATISTICS 

MIX  1  06  Feb  88 


ATTRIBUTE 

SQ1 

SQ2 

SQ3 

SQ4 

TOTAL 

1 . 

Line  AD  Air  Force 

102 

101 

104 

103 

410 

2. 

No  advanced  Degree 

49 

46 

37 

41 

173 

3. 

HQ  (>=Majcom)  Experience 

ao 

78 

83 

76 

317 

4. 

Any  Pilot 

48 

52 

51 

50 

201 

S. 

Any  Navigator 

17 

17 

18 

14 

66 

6. 

Anyhow  Unaccompanied 

29 

23 

34 

18 

104 

7. 

USAFA  (academy)  grad 

25 

18 

22 

16 

81 

8. 

Army 

11 

11 

11 

11 

44 

9. 

Res , ANG, Ci v , USMC, or  Navy 

11 

11 

9 

10 

41 

10. 

Black  or  other 

5 

5 

5 

6 

21 

11. 

Fema !  e 

7 

7 

7 

8 

29 

12. 

Current  captains 

6 

7 

7 

3 

23 

13. 

Med i ca 1 , 1 ega 1 , chap  1  a  i  n 

7 

5 

5 

5 

22 

14. 

Bomber  or  missile  exp 

5 

6 

4 

7 

22 

15. 

F i ghter  pilot  or  WSO 

5 

8 

9 

8 

30 

16. 

PPBS  experience 

26 

34 

28 

22 

110 

17. 

Acc  Log  experience 

31 

32 

15 

34 

112 

18. 

Space  experience 

0 

0 

0 

0 

0 

19. 

unass i gned 

0 

0 

0 

0 

0 

20. 

unass i gned 

0 

0 

0 

0 

0 

21. 

unass i gned 

0 

0 

0 

0 

0 

22. 

unass i gned 

0 

0 

0 

0 

0 

23. 

unass i gned 

0 

0 

0 

0 

0 

Figure  5.4 


School  Mixing  Summary 


SQUADRON  3  MIX  STATISTICS 
MIX  1 


06-Feb-88 


ATTRIBUTE 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

TOTAL 

1 . 

Line  AD  Air  Force 

10 

9 

10 

8 

11 

10 

10 

9 

9 

9 

9 

104 

o 

L.  . 

No  advanced  Degree 

4 

3 

3 

3 

4 

2 

3 

6 

4 

2 

3 

37 

o 

HQ  (>=Maicom)  Experience 

8 

8 

9 

9 

10 

7 

6 

7 

7 

6 

6 

83 

4. 

Any  Pilot 

4 

5 

4 

7 

5 

5 

4 

4 

3 

5 

5 

51 

5. 

Any  Navigator 

2 

2 

2 

1 

1 

1 

2 

2 

2 

1 

2 

18 

6. 

Anyhow  Unaccompanied 

2 

2 

4 

4 

4 

2 

6 

0 

2 

3 

5 

34 

7. 

USAFA  (academy)  grad 

2 

3 

3 

1 

5 

2 

1 

1 

0 

3 

1 

22 

8. 

Army 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

11 

9. 

Res , ANG, Ci v, USMC, or  Navy 

1 

1 

0 

2 

0 

0 

1 

1 

1 

1 

1 

9 

10. 

Black  or  other 

0 

0 

1 

0 

1 

1 

0 

0 

0 

1 

1 

5 

1 1 . 

Fema  1  e 

1 

1 

0 

1 

1 

1 

1 

0 

1 

0 

0 

7 

12. 

Current  captains 

0 

1 

2 

1 

0 

0 

0 

1 

0 

1 

1 

7 

13. 

Medical, legal, chaplain 

0 

0 

0 

1 

1 

0 

1 

0 

1 

1 

0 

5 

14. 

Bomber  or  missile  exp 

1 

1 

0 

0 

0 

0 

1 

0 

0 

0 

1 

4 

15. 

F i ghter  pilot  or  USO 

1 

1 

1 

1 

2 

0 

1 

1 

1 

0 

0 

9 

16. 

PPBS  experience 

4 

3 

0 

5 

5 

3 

1 

o 

C. 

5 

0 

0 

28 

1". 

Acq/Log  experience 

2 

3 

1 

2 

2 

1 

1 

1 

1 

1 

0 

15 

18. 

Space  experience 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

19. 

unassigned 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

20. 

unass i gned 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

21. 

unass i gned 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

•“>  -> 

unassigned 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

23. 

unass i gned 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

Figure  5.5  Squadron  Mixing  Summary 


5.5  Complete  Mixing  Report 

This  option  is  an  "a  1  1  -  the -above"  report.  It  runs  the  School 
Summary,  Squadron  Summary  for  all  squadrons,  and  Seminar  Mixing 
Report  f  o i  all  seminars.  It  is  convenient  (although  time- 
ronsuming'  to  run  this  after  mixing  to  get  a  complete  mixing 
picture.  Note  that  if  you  choose  "DISK"  output,  the  two  summary 
reports  will  be  printed  while  the  Seminar  Mixing  Report  will  go  to 
d  isk. 

5.6  Alpha  Rosters 

The  final  three  report  options  all  produce  alphabetically  sorted 
looters  similar  to  that  shown  in  figure  5.7.  You  can  create  a 
school,  squadron,  seminar,  or  set  of  seminars  roster.  Note  that 
these  rosters  contain  students’  name  and  social  security  number. 


so  they  should  be  protected  according  to  the  privacy  act. 
security  numbers  have  been  deleted  from  the  example. 
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Figure  5.6 


Seminar  Mixing  Report 
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Figure  5.7  Student  Alpha  Roster 


Chapter  6 


Mi xmaster ’ s  Checklist 

The  preceding  chapters  described  how  to  use  SMSS.  This  chapter 
lists  the  mixing  tasks  required  of  the  ACSC  staff  officer 
responsible  for  student  mixing.  Numbers  in  parentheses  are 
paragraph  numbers  of  the  SMSS  operation  to  perform  each  task. 

ACT  1 ONS 


6.1  After  graduation  in  June  --  Save  the  old  student  file  for 
historical  purposes.  In  the  SMSS  directory,  enter  copystu.  This 
will  copy  all  student  information  to  floppy  disk. 

6.2  Prior  to  start  of  new  class  --  Get  the  Air  Force  student  disk 
from  AU/DPXM  and  load  it.  (3.1) 

6.3  Obtain  hardcopy  information  on  non  Air  Force  students  from 
the  ACSC  Director  of  Operations.  Manually  load  these  students. 
Don’t  forget  SOS  instructors  and  AR I  fellows.  (3.2  and  appendix  1) 

6.4  When  all  students  have  been  loaded  --  Assign  student  numbers. 
Note  that  you  must  assign  student  numbers  before  doing  any  mixing. 

(3.5) 

6.5  The  following  student  a t t r i butes/ s k i 1 1 s  must  be  entered  by 

hand .  (3.3) 


MAR.STAT  .  "UM  for  married,  unaccompanied 

SOS  . "Y"  for  SOS  phase  II  instructors 

AR  I  . "Y"  for  Airpower  Research  Inst,  fellows 


PPBS.ACQLOG,  SPACE  .  "Y"  for  possesses  that  skill 

6.6  Enter  "Y"  in  the  CC  field  of  the  class  commander.  (3.3) 

6.7  Enter  "Y"  in  SRO  field  of  the  four  squadron  senior  ranking 
officers.  (3.3) 

6.8  If  there  are  any  new  mixing  criteria,  choose  TBD  fields  to 
represent  them.  Identify  students  with  the  attribute/skill  and 
update  appropriate  TBD  field  with  ”Y".(3.3) 


6.9  Edit  all  the  fields  in  the  environment  record  for  mix  1. 

(3.6) 


6.10  If  you  want  to  pre-assign  any  student  to  a  particular 
seminar,  update  his/her  MIX1  field  with  that  seminar  number.  (3.3) 

6.11  Perform  mixing  for  mix  1.  (4.2) 

6.12  Run  the  complete  mixing  report  on  M  I  XX  and  analyze  it  for 
acceptability.  (5.5) 

6.13  If  the  mix  is  somehow  "uneven",  adjust  the  rule  attribute/ 
skill  priorities  and  mix  again  until  it  comes  out  right.  (3.6, 

4.2) 

6.14  To  make  any  manual  mix  adjustments,  edit  the  M I XX  field. 

Note  that  if  you  make  any  manual  changes,  you  must  manually 
compare  da t e s - o f - r ank  and  manually  make  any  necessary  changes  to 
the  SLX  and  ASLX  fields.  (3.3) 

6.15  When  the  mix  is  satisfactory  --  post  tentative  mix 
assignment?  to  MIX1.  (3.8) 

6.16  Run  the  Alpha  Rosters.  (5.6) 

6.17  Make  a  backup  copy  of  the  student  file  to  protect  against 
loss  of  the  working  copy.  On  a  hard  disk  system,  run  "copystu" 
(6.1).  On  a  floppy  system,  copy  the  SMSSSTUS  disk  using  the 
MS-DOS  "diskcopy"  command. 

6.18  As  necessary  throughout  the  school  year  --  delete  any 
disenrol  led  students  (3.4),  and  make  any  personnel  data  changes 
for  promotions,  change  in  marital  status,  etc.  (3.3) 

6.19  Prior  to  mix  2  --  do  steps  6.8  through  6.16  for  mix  2. 

6.20  Prior  to  mix  3  --  Delete  International  Officers  (3.7),  then 
do  steps  6.8  through  6.16  for  mix  3. 


Appendix  One 


Student  File 


NO.  NAME 

(Fields  1  thru 
available  from 

1  NAME 

2  RANK 


RACE 


LENGTH  TYPE  DESCRIPTION 


RANGE 


27  come  from  the  Air  Force  Personnel  Data  System, 
HQ  AU/DPXM ) 


MAR. ST 


SSAN 


7  DOB 


8  COMP 


9  DOR 


10  PLSD 


1  1  COMM 


12  AERO 


13  RTFD 


Student ’ s  Name 


Rank/Pay  Grade 


Gender 


Ethnicity 


Marital  Status 


any  (e. g. )  SMITH  JOHN  R 
01-15  ( that ’ s , zero-one ) 


M  or  F 


BLK.CAU  or  OTH 
D,  M, S, U 


Social  Security  No.  OOOOOOOOO  -  999999999 


Date  of  Birth 


Service  Component 


Date  of  Rank 

Pay  List  Service 
Date  (Total  Service) 


yymmdd  (e.g.)  510922 

AFRES,  ANG,  CIV,  USA,  'JSAF, 
USMC , USG , USN  or  country 
ind i cator ( e . g . )  PAKIS 

yymmdd  (e.g.)  860801 

yymmdd  (e.g.)  750815 


Commissioning  Source  ACAD  MI,AF  ACAD, DIRECT, 

DP  CIV, DP  MIL, OCS, OTHER, 
OTS , OTS  DMG ,  ROTC.ROTC 
DG, ROTCDMG, UNKNOWN, USMA, 
USNA 

Aeronautical  Rating  MAST  NAV,  NAV , NAV I  GATOR , 

NFO , NO  RATING,  NONE, 
PILOT, SR  NAV, SR  PILOT, 
(blank) 

Return  to  Fly  Date  blank  or  yymm(e.g.)  9008 


z 

o 

• 

NAME 

LENGTH 

TYPE 

DESCRIPTION 

RANGE 

1  4 

MOF 

3 

A 

Months  of  Flying 

blank  or  nnn  (e. g. >  085 

15 

AC  1 . HRS. DT 

15 

A 

Most  recent  acft, 

aaaaaaahhhhyymm  (e.g.) 

hours,  last  flying 
date 

F-5E/F  02168701 

16 

AC2 . HRS. DT 

15 

A 

Next  most  recent 
aircraft,  hours , 
date 

Same  as  field  15 

17 

AC3. HRS. DT 

15 

A 

Third  most  recent 
aircraft, hours, date 

Same  as  field  15 

18 

ED. LEVEL 

4 

A 

Education  Level 

BAC,  BAC  + ,  DOC,  MAS, 

MAS  + ,  PHD,  RN,  1 PDG 

19 

DAFSC 

6 

A 

Duty  Air  Force 
Specialty  Code 

(e.g.)  Kill 5H ,  or  4916 

20 

PAFSC 

6 

A 

Primary  AFSC 

ft  tt  tt 

21 

AFSC2 

6 

A 

Secondary  AFSC 

ft  tt  tt 

22 

AFSC3 

6 

A 

Tertiary  AFSC 

ft  ft  tt 

23 

PME1 

5 

A 

Junior  Service 

(blank),  ARMY,  S0S,S0SC 

School  Grad 

SOSR 

24 

PME2 

5 

A 

Intermediate  Service 

(blank),  ACSC,  ACSCC, 

School  Grad 

ACSCS ,  CSC,  MCCSC 

25 

PME3 

5 

A 

Senior  Service 

School  Grad 

(blank),  MCCSC,  OTHER 

26 

MA J  COM 

3 

A 

Last  Assigned  Major 

(blank) , AAC, AAG, ACD, AFE 

Command,  Special 

AFW, ATC, AUN, CBT, CMC, DMA 

Operating  Agency,  or 

ELC, ELM, ESC, EUR, HAF, HRS 

Joint  Command/Agency 

INT, ISC, LCT, LOG, MAC, MPC 
MGS , OS  I , PAF , RPC , SAC , SPC 
SYS , TAC ,  TAP, TEC 

27 

ORG. LVL 

3 

A 

Highest  Organizat¬ 

(blank),  ADV,  DOD,  HAF, 

ional  Level 

MAJ,  NAF,  SOA,  SQD, 

SQN,  UNG 


(Fields  28  thru  49  are  entered  by  the  mixing  program  or  manually) 


28  SQUADRON 


1 


A 


ACSC  Squadron 


1 ,  2,  3,  or  4 


NO. 

NAME 

LENGTH 

TYPE 

DESCRIPTION 

RANGE 

29 

M  1  X 1 

2 

A 

Seminar  Assignment 
for  1st  Mix 

01  - 

44 

30 

MIX2 

2 

A 

2nd  Mix  Seminar 

ft 

ft 

31 

MIX3 

2 

A 

3rd  Mix  Seminar 

ft 

ft 

32 

MI  XX 

2 

A 

Tentative  Mix 
Assigned  by  mixer 

n 

ft 

33 

STU. NO 

4 

A 

Student  Number 

0005 

-9995 

34 

SOS 

1 

A 

SOS  I  ns  tr uctor 

Y 

or 

b  1  ank 

35 

ARI 

1 

A 

Air  Power  Research 
Institute  Fellow 

Y 

or 

b  1  ank 

36 

CC 

1 

A 

Indicates  Class  Com¬ 
mander 

Y 

or 

b  1  ank 

37 

SRO 

1 

A 

Indicates  Senior 
Ranking  Officer 
in  Squadron 

Y 

or 

b  1  ank 

38 

SL 

1 

A 

Has  held  Seminar 
Leader  position 

Y 

or 

b  1  ank 

39 

ASL 

1 

A 

Has  held  Asst.  Sem¬ 
inar  leader  posn. 

Y 

or 

b  1  ank 

40 

SLX 

1 

A 

Seminar  Leader  in 
tentat i ve  mix 

Y 

or 

b  1  ank 

41 

ASLX 

1 

A 

Asst.  Seminar  Leader 
in  tentative  mix 

Y 

or 

b  1  ank 

42 

PPBSK 

1 

A 

Has  PPBS  skill 

Y 

or 

b  1  ank 

43 

ACQLOGSK 

1 

A 

Has  Acquisition/Log 
skill 

Y 

or 

b  1  ank 

44 

SPACESK 

1 

A 

Has  Space  Ops  skill 

Y 

or 

blank 

45 

TBD  1 

1 

A 

Unassigned  attribute 

Y 

or 

blank 

46 

TBD2 

1 

A 

Unassigned  attribute 

Y 

or 

b  1  ank 

4  7 

TBD3 

1 

A 

Unassigned  attribute 

Y 

or 

blank 

NO. 

NAME 

LENGTH 

TYPE 

DESCRIPTION 

RANGE 

48 

TBD4 

1 

A 

Unassigned  attribute 

Y  or  blank 

49 

TBD5 

1 

A 

Unassigned  attribute 

Y  or  b 1 ank 

Fields  50  thru  66  are  calculated  fields.  That  is,  their  values  (Y  or 
blank)  are  calculated  by  the  system  according  to  formulas  defined  in  the 
data  base.  See  SMART  Data  Base  Manager  Reference  Guide,  page  Create- 9 
for  details.  Each  field  has  a  value  of  blank  or  "Y".  The  "Y" 
condition  is  shown. 


NO. 

NAME 

DESCRIPTION 

•Y"  CONDITION 

50 

I  0 

International  Officer 

COMP  =  anything  but  US  components, 
(i.e.)  not  AFRES,  ANG,  CIV,  USA, 
USAF,  USMC,  USN,  USG 

51 

USAF 

Active  Air  Force 

COMP  =  "USAF"  (not  ANG  or  AFRES) 

52 

NOMAST 

No  Master's  Degree 

ED. LEVEL  shows  no  Master  or  higher 

53 

SORG 

Sr.  Orgn  Experience 

ORG.LVL  shows  MAJCOM  or  higher 

54 

P  I  LOT 

Pilot 

AERO  shows  pilot 

55 

NAVIGATOR 

Nav i gator 

AERO  shows  nav 

56 

SINGLE 

No  spouse 

Single,  divorced  or  unaccompanied 

57 

USAFA 

AF  Academy  grad 

COMM  =  "AF  ACAD" 

56 

ARMY 

Army  Off i cer 

COMP  =  "USA" 

59 

OTHERCOMP 

Not  Army  or  USAF 

COMP  =  AFRES,  ANG,  USMC,  Navy, 
Coast  Guard  or  Civilian 

60 

MINORITY 

Ethnic  Minority 

RACE  is  non-caucasian 

61 

FEMALE 

Fema  1  e 

SEX  =  "F" 

62 

CAPTAIN 

Rank  is  Capta i n 

RANK  =  "03" 

63 

NONLINE 

Not  a  line  officer 

Civilian  or  PAFSC  is  Medical, 

Legal  or  Chaplain 

64 

STRATOPSK 

Strategic  Ops  skills 

Missiles  or  Bomber  background 

65 

T  ACOPSK 

Tactical  Ops  skills 

PAFSC  shows  Fighter  background 

66 

COULDBSL 

Qua  lifted  to  be 
Seminar  Leader 

Any  US  officer 

Append i  x  T  wo 


SMART  Project  Fi les 
Program  Listings 

The  following  programs  are  written  in  the  SMART  project  file 
programming  language.  See  the  SMART  System  Manual,  Project 
Processing  Guide  for  details. 


P  roiect 
Name 

File 

Page 

SMSS 

44 

ENVWR 1 TE 

65 

GOM  !  X 

66 

1  ODEL 

67 

LOADEM 

68 

NEWM  !  X 

69 

RAMLOAD 

71 

RAMSAVE 

“7  O 

1  4- 

STUNUMB 

7  3 

STUREAD 

74 

STUWR 1 TE 

76 

Description 

Entry  and  Main  Routine.  Displays  most  menus 
and  calls  other  project  file  routines. 

Writes  environment  record  for  mixer. 

Returns  to  MS-DOS  when  mixer  Requested. 

Deletes  10  records  from  student  file. 

Loads  student  and  help  screen  files. 

Called  upon  return  from  mixer.  Updates  student 
file  with  tentative  mix  results. 

Loads  student  file  into  Virtual  disk. 

Dumps  student  file  from  virtual  disk  to  floppy. 

Assigns  student  numbers. 

Reads  student  file  data  from  ASCII  floppy  disk. 
Writes  student  file  in  ASCII  format  for  mixer. 


COMMENT  ****** » »SMSS 


COMMENT  ENTRY  POINT  FOR  MAIN  SMSS  PROGRAM 
COMMENT  URITTEN  BY  MAJ  RICHARD  M.  JENSEN 

COMMENT  VARIABLE  &  PARAMETER  CONVENTIONS: 

COMMENT  STANDARD  PROJECT  VARIABLES  (TEXT1 , TEXT2, VALUE  1 , VALUE2 )  HAVE  ONLY  A 
COMMENT  TEMPORARY  SCOPE.  ALL  OTHER  VARIABLE  NAMES  (inane)  HAVE  SPECIFIC 
COMMENT  USES  AND  ARE  NOT  USED  FOR  MORE  THAN  ONE  PURPOSE. 

COMMENT  PARAMETERS  %l-%8  HAVE  TEMPORARY  SCOPE.  *9  AND  * 0  HAVE  SPECIFIC  USES 
COMMENT  (%9  INDICATES  CHOSEN  MIX  #  IN  REPORTS  SECTION,  %0  INDICATES  MEDIA 
COMMENT  SELECTION  THROUGHOUT) 

COMMENT 

COMMENT  HOUSEKEEPING  AND  ONE  TIME  SETUP 
QUIET  On 
singlestep  off 

COMMENT  DELETE  ENV.ASC  IF  IT  HAPPENS  TO  EXIST 

COMMENT  IN  CASE  WE  EXIT  ABNORMALLY,  DON'T  WANT  SMSS.BAT  TO  THINK  WE’RE  MIXING 
if  f i 1 e ( "env . asc" ) = 1 . 0  then  file  erase  env.asc 
COMMENT  OPEN  THE  ENVIRONMENT  FILE 
load  environ  screen  envlronl 

COMMENT  ENTRY  TO  SMSS  FROM  SMSS.BAT  COULD  BE  FROM  ONE  OF  2  PLACES: 

COMMENT  1.  INITIAL  ENTRY  (PRE-MIXING)  OR 
COMMENT  2.  AFTER  MIXING 

COMMENT  EXISTENCE  OF  MIXER  OUTPUT  FILE,  STUOUT.ASC  IS  INDICATOR  OF  WHICH. 

COMMENT  NOTE,  MIXER  CREATES  STUOUT.ASC.  TEST  FOR  STUOUT.ASC 

COMMENT  IF  IT  EXISTS  GO  COPY  THE  TENTATIVE  MIXING  INFO  INTO  THE  DATA  BASE 

COMMENT  IF  NOT  ASK  USER  WHICH  MEDIA  HE’S  OPERATINE  FROM 

if  file  ( "stuout. asc" ) =1 . 0 

execute  newmix  in-memory 

e  1  se 

ca I  1  getmedia 

COMMENT  GETMEDIA  AND  NEWMIX  RETURN  *MEDIA  AND  *0  TO  INDICATE  USER’S  CHOICE 
COMMENT  OF  MEDIA.  DON’T  USE  %0  FOR  ANYTHING  ELSE 
end  I  f 

COMMENT  main  menu  (level  1)  loop 
label  main 

COMMENT  DISPLAY  WELCOME  TITLE 
call  mai nt i t 1 
let  $  I v 1  =  1 

menu  print  8  36  15  4  OPTIONS 

menu  print  10  24  15  4  1.  FILE  MAINTENANCE 

menu  print  12  24  15  4  2.  PERFORM  MIXING 

menu  print  14  24  15  4  3.  PRODUCE  REPORTS 

COMMENT  GET  MENU  SELECTION 

ifirstl i ne= 10 


****  Project  File  SMSS  **** 


$  1  as 1 1 i ne  = 14 
*1 inedif f =2 
$co I m  =  23 
label  Inloopl 
call  se 1  opt 

COMMENT  DEBUG  SINGLESTEP  ON 
COMMENT  TEST  INPUT 
If  »option  =  1 


ca 1 1  preprocess 
jump  main 
elseif  $option=  2 
call  m  i  xem 
jump  main 
elseif  *option=  3 
ca  1  1  reports 
jump  main 

COMMENT  TEST  FOR  H 
elseif  $key=  104  or  $key=72 
call  help 
jump  main 

COMMENT  TEST  FOR  ESCAPE  MEANING  EXIT 
elseif  *key=  27 

COMMENT  EXISTENCE  OF  FILE  ENV.ASC,  THE  ASCII  ENVIRONMENT  FILE,  IS  THE  KEY 
COMMENT  WHETHER  EXIT  BACK  TO  DOS  IS  FROM  HERE  OR  FROM  A  MIXING  REQUEST. 
COMMENT  ERASE  ENV.ASC  TO  SHOW  WE'RE  EXITING  NORMALLY 
menu  clear  15  1 

if  f  i  1  e ( "env. asc" )  =  1 . 0  then  file  erase  env.asc 
un  1  oad  a  1 1 

COMMENT  IF  WE’VE  BEEN  WORKING  ON  VDISK,  IT  NEEDS  TO  BE  SAVED  TO  FLOPPY 
if  $media=3  then  execute  ramsave  in-memory 
end 

else  beep  on 

beep  3  illegal  entry--try  again 
jump  inloopl 

end  i  f 


COMMENT  *»#**»*»***»**»» LEVEL  1  SUBROUT  I NES* »*»»**»***»****» * 

COMMENT  **************** GETMED 1A************************* 

COMMENT  ASK  USER  WHERE  DATA  IS  COMING  FROM- -FLOPPY,  HARD,  OR  VDISK 
COMMENT  OUTPUT:  $MED 1 A= 1 , 2 , OR  3.  %0=PATH  FOR  STUDENTS  DATABASE  FILES 
COMMENT  NOTE  ENTIRE  SYSTEM  IS  TOO  BIG  FOR  ONE  FLOPPY  DRIVE  SO  IF  CHOICE 
COMMENT  IS  FLOPPY,  STUDENTS.*  L  NEWM I X  GO  TO  B:,  EVERYTHING  ELSE  TO  A: 
COMMENT  ON  OUTPUT,  %0="B:\",  OR  "D:\" 

COMMENT  *************************************************** 

procedure  getmedia 
*  I  v  I  -  0 
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****  Project  File  SMSS  **»* 


label  inloopO 

COMMENT  PUT  OUT  WELCOME  HEADER 
call  maint i t 1 

menu  print  8  30  15  4  CHOOSE  DISK  OPTION 

menu  print  10  24  15  4  1.  FLOPPY  DISK  ONLY--a:  (programs),  b:  (student  file) 

menu  print  11  24  15  4  2.  HARD  DISK  --c:  programs  &  student  file 

menu  print  12  24  15  4  3.  FLOPPY  AND  VD!SK--a:  (programs),  d:  (student  file) 

menu  print  14  22  15  4  «#*  DEFAULT  (Esc)  IS  OPTION  2  »»* 

$f i r s t 1 i ne= 10 
t I ast 1 i ne=  12 
*  1 inedif f  =  1 
$co 1 m=23 

COMMENT  GET  USER  INPUT 
ca  i  1  se I  opt 

COMMENT  SET  DEFAULTS  (IN  CASE  OF  ESC  OR  2.)  TO  HARD 

$media=2 

%0  =  nul  1 

COMMENT  TEST  FOR  ESCAPE  INPUT-ASSUME  HARD  AND  EXIT 
If  *key=27  then  lump  gmend 

COMMENT  TEST  FOR  HELP  REQUEST-PRINT  SCREEN  AND  TRY  AGAIN 
if  $key=104  or  $key=72 
call  help 
jump  inloopO 

end  i  f 

COMMENT  MUST  BE  AN  OPTION  SELECTION 
tmedia=$option 

COMMENT  IF  HARD  DISK, ALL  FILES  ON  SMART  DATAMANAGER  DEFAULT  CATALOG 
if  $option=2 
%0  =  nu I  1 
jump  gmend 
end  i  f 

COMMENT  IF  FLOPPY  OR  VDISK,  NEED  TO  GET  STUDENTS  DISK  IN  B: 
message  Load  STUDENTS  disk  into  drive  B:-any  key  when  ready 
COMMENT  IF  VDISK,  GO  LOAD  VDISK  FROM  FLOPPY 
if  ioption=3 
%0="d:\" 

execute  raraload  in-memory 
COMMENT  RAMLOAD  RETURNS  TEXT  1 =N  IF  USER  BAILS  OUT 
if  textl=="n"  then  jump  inloopO 
e  1  se 

COMMENT  MUST  BE  FLOPPY,  RETURN  POINTING  TO  B: 

*media=l 
%0="b: \" 
end  i  f 

label  gmend 

COMMENT  NEED  TO  SAVE  MEDIA  IN  ENVIRONMENT  FILE,  ELSE  IT  WILL  GO  AWAY  WHEN 
COMMENT  WE  GO  OFF  TO  MIXER  AND  RETURN  (i.e  variable  aren’t  saved) 
goto  file  environ  screen  environl 
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****  Project  File  SMSS  ***» 


goto  record  rec-number  1 
let  C med i a ] =$medi a 
COMMENT  OPEN  STUDENT  FILE 
execute  loadem  in-memory 
return 

COMMENT  *********** MAI  NT ITL ************** 

COMMENT  DISPLAY  A  STANDARD  HEADER  USED  IN  LEVELS  1  &  0 
COMMENT  ********************************* 
procedure  maintitl 


COMMENT  PA 

I  NT  SCREEN 

RED 

menu  clear 

15  4 

menu  draw 

box  2 

35 

6 

44  15  4 

menu  print 

3  36 

15 

4 

WELCOME 

menu  print 

4  39 

15 

4 

TO 

menu  print 

5  38 

15 

4 

SMSS 

return 

COMMENT*** 

*  *  *LEVPR 

[  NT*  *  *  *  * 

COMMENT  DISPLAYS  THE  CURRENT  LEVEL  NUMBER  AT  TOP  RIGHT  SCREEN 

COMMENT  « 1 vl  CONTAINS  LEVEL 

COMMENT******************* 

procedure  levprint 

XI  =  *  I v  1 

menu  print  2  64  15  4  menu  level  %1 
return 


COMMENT* *»»»FOOTER***»* 

COMMENT  DISPLAYS  THE  STANDARD  HELP  ESCAPE  LINE  AT  BOTTOM  SCREEN 
COMMENT*  *  ************** 
procedure  footer 
if  *  1 v I =0  or  $  I v 1  =  131 1 
%1  ="nex  t" 
e  I  se 

%l="last" 
end  i  f 

menu  print  20  5  15  4  Enter  h  for  HELP,  Esc  to  exit  to  %1  menu 
return 


COMMENT 

COMMENT 

COMMENT 

COMMENT 

COMMENT 

COMMENT 

COMMENT 

COMMENT 

COMMENT 


*  *  *  *  *  »  *SELOPT*  *  *  *  » 

GIVEN  A  MENU,  RETURNS  NUMBER  OF  OPTION  SELECTED 
»«x»*»»**«»******» 

INPUT  $F I RSTL I NE=L I NE  NUMBER  OF  FIRST  OPTION 
$LASTLINErLINE  NUMBER  OF  LAST  OPTION 
$COLM=COLUMN  NUMBER  TO  PRINT  >  OF  ==>  POINTER 
$L I  NED  I FF  =  L I NE  SPACING  BETWEEN  OPTIONS 
OUTPUT  $OPT 1 0N=  NUMBER  OF  OPTION  CHOSEN 

IF  *0PTIQN=0,  $KEY=27  FOR  ESCAPE  OR  "H"  FOR  HELP 
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**«»  Project  File  SMSS  ***» 


COMMENT  ******************** 

procedure  selopt 
$key=0 

cal  1  levpr int 
ca 1 1  footer 
XI =*f i rst 1 ine 
%2=<colm-4 

COMMENT  POINTER  SYMBOL  ==> 

X3=chr (205 ) lehr (205) lehr (16) 

COMMENT  DISPLAY  ARROW  AT  1ST  OPTION 
menu  print  XI  X2  15  4  X3 

COMMENT  UNTIL  INPUT  IS  ESC,  ENTER,  OR  h  or  H  FOR  HELP 
while  ($key<>27  and  $key<>13  and  *key<>104  and  $key  072) 
COMMENT  SAVE  CURRENT  ROU  TO  BLANK  OUT  LAST  POINTER  POSN 
$  I astrow=Xl 

COMMENT  MOVE  UP  OR  DOWN  THE  MENU  OR  BEEP  ON  BAD  KEY 
COMMENT  CHECK  FOR  UPARROW  (18432) 

If  *key= 18432 

X1=X1-$1 inedif f 

COMMENT  CHECK  FOR  DOWNARROW  (20480) 
elseif  $key  =  20480 
%1 =  X1 +$L I  NED  I FF 
else 
beep 
end!  f 

COMMENT  WRAP  POINTER  IF  NECESSARY 
if  %1  <  $f i rst 1 ine 
XI =$ 1 ast 1 ine 
end  i  f 

if  XI >$ I ast 1 i ne 
Xl-ifirstl ine 
endi  f 

COMMENT  BLANK  OUT  LAST  SPOT  OF  POINTER 
X4  =  * I astrow 

menu  print  X4  X2  4  4  "  " 

COMMENT  PRINT  POINTER  AT  NEW  POSITION 

menu  print  XI  X2  15  4  X3 

COMMENT  WAIT  FOR  KEY  TO  BE  STRUCK 

*key= inchar 

endwh i I e 

if  *key=13 

$opt i on= ( (XI -ff i rst 1 i ne) /• 1 inedif f ) +1 

e  1  se 

*opt i on^O 

end  i  f 

COMMENT  DEBUG  Iprint  Joption;  Jkey 
return 
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*»**  Project  File  SMSS  »*»* 


COMMENT * *  *  *  *  HELP*  *  ***** 

COMMENT  DISPLAYS  HELP  SCREEN  FOR  LEVEL  INDICATED  IN  $lvl 

C'OMMENT**************** 

procedure  help 

COMMENT  CALL  UP  THE  APPROPRIATE  HELP  SCREEN 

*  1  =  1 1  v  1 

load  help  screen  help%l 
paint  graphics  foreground  11 

COMMENT  THIS  UPDATE  IS  JUST  A  DUMMY  OPERATION  TO  GET  THE  HELP  SCREENS  UNDER 

COMMENT  USER  CONTROL.  NOT  REALLY  UPDATING  ANYTHING 

update 

unload  screen  he  I pXl 

paint  graphics  foreground  IS 

goto  file  XOstudents  screen  studentl 

return 

COMMENT  »»***PREPROCESS****** 

COMMENT  LEVEL  11  MENU  DISPLAY 
COMMENT  ********************* 

procedure  preprocess 

COMMENT  CLEAR  KEY  UPDATE  INDICATOR 

$keyup=0 

label  mainll 

*  1  v  !  - 1 1 

COMMENT  SET  UP  SCREEN  AS  USUAL 

menu  clear  IS  4 

menu  draw  bo*  2  32  5  46  15  4 

menu  print  3  38  15  4  FILE 

menu  print  4  34  15  4  MAINTENANCE 

menu  print  7  36  15  4  OPTIONS 

menu  print  9  24  15  4  1.  BUILD  STUDENT  RECORDS  FROM  ANOTHER  DISK 

menu  print  10  24  15  4  2.  ADD  STUDENT  RECORDS  MANUALLY 

menu  print  11  24  15  4  3.  EDIT  EXISTING  STUDENT  RECORD 

menu  print  12  24  15  4  4.  DELETE  STUDENT  RECORD 

menu  print  13  24  IS  4  5.  DESIGNATE  STUDENT  NUMBERS 

menu  print  14  24  15  4  6.  EDIT  ENVIRONMENT  RECORD  (MIXING  RULES) 
menu  print  15  24  15  a  7.  DELETE  10’S  (FOR  MIX  3) 

menu  print  16  24  15  4  8.  POST  MIXER  TENTATIVE  ASSIGNMENTS 

If  irst I ine-9 
♦last! i ne= 16 
1 1  i  ned i f  f -  1 
t  c  o  I  m  -  2  3 
label  inloopll 
call  se 1  opt 
if  topt i on=  1 
ca I  I  sturead 


»***  Project  File  SMSS  **»• 


elseif  $option=2 

COMMENT  LOAD  SCREEN  THAT  ALLOWS  ALL  FIELD  ENTRIES 
goto  file  XOstudents  screen  student2 
enter 
$keyup= 1 

COMMENT  BACK  TO  NORMAL  SCREEN 

goto  file  XOstudents  screen  studentl 

elseif  *option=3 
ca 1 1  reef ind 

COMMENT  TEST  FOR  HELP, ESCAPE  OR  RECORD  NOT  FOUND  AND  UPDATE  IF  OK 
if  ^option  <>  0  then  update 

elseif  $option=4 
cal  1  reef ind 

COMMENT  TEST  FOR  HELP, ESCAPE, NOT  FOUND, OR  ALREADY  DELETED  AND  DELETE  IF  OK 
if  $option  <>  0  and  deleted=0.0  then  delete 

elseif  *option=S 

execute  stunumb  in-memory 


elseif  $option=6 

goto  file  environ  screen  environl 
update 

goto  file  fcOstudents  screen  studentl 


elseif  Soption=7 

execute  iodel  in-memory 

elseif  $option=8 

menu  print  IS  61  15  4  Mix?  (1,2  or, 3) 

label  ask8 

beep 

menu  Input  16  61  4  15  1  textl 
if  textl=null  then  jump  malnll 

if  textl<>"l"  and  textl<>"2"  and  textl<>"3n  then  Jump  ask8 
%l=textl 

menu  print  20  35  4  15  Posting  permanent  mix  %l 
query  predefined  postmix%l  neither 

elseif  *key=104  or  *key=72 
call  help 

elseif  $key=27 

COMMENT  ESCAPE -UPDATE  KEYS  IF  ADD  HAS  BEEN  DONE 
if  ikeyupOO 

menu  print  20  59  4  15  Updating  key  fields 
key  update 
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»««*  Project  File  SMSS  **** 


end  i  f 
return 

end  i  f 

jump  mainll 

COMMENT  *»*»** *«**«#STUREAD* »»*»*««*»»* 

COMMENT  LEVEL  111  PROCEDURE  -  READ  IN  STUDENT  RECORDS 
COMMENT  *»»*»*»*»*»*»»»*#*»»**»**»»*»*# 

procedure  sturead 
label  mainlll 
*  1 v 1 =111 

COMMENT  SET  UP  SCREEN  AS  USUAL 

menu  clear  15  4 

menu  draw  box  2  25  4  52  15  4 

menu  print  3  26  15  4  SMSS  -  BUILD  STUDENT  FILE 

menu  print  5  15  15  4  This  option  allows  you  to  build  the  student  file  by 

menu  print  6  15  15  4  reading  student  records  from  an  ASCII  floppy  disk  file, 

menu  print  7  15  15  4  See  the  SMSS  users  manual  for  the  correct  format  of 

menu  print  8  15  15  4  this  file.  You  can  build  the  student  file  from 

menu  print  9  15  15  4  scratch  or  you  can  add  new  records  to  the  end  of  the 

menu  print  10  15  15  4  existing  file, 

menu  print  11  31  4  15  *  *  *  * *WARN I NG* * « *  * 

menu  print  12  15  15  4  If  you  build  from  scratch,  anv  records  in  the  current 

menu  print  13  15  15  4  student  file  will  be  lost, 

menu  print  15  36  15  4  OPTIONS 

menu  print  16  24  15  4  1.  BUILD  STUDENT  FILE  FROM  SCRATCH 

menu  print  17  24  15  4  2.  ADD  RECORDS  TO  STUDENT  FILE 

$f I rst I ine= 16 

$  1  as  1 1 ine= 17 

$  1 i nedi f  f  - 1 

$co 1 m=23 

call  se 1  opt 

if  toptlon^O  and  <key=27  then  return 
if  $option=0  and  ($key=104  or  $key=72) 
call  help 
jump  mainlll 
end  i  f 

execute  sturead  in-memory 
return 

COMMENT  *»»»»»»  » *  »RECF I ND »*»•*»*«»»•»»  * 

COMMENT  LEVEL  113/4  PROCEDURE*  FIND  A  PARTICULAR  RECORD 
COMMENT  BASED  ON  NAME.  SSAN  OR  STU.NO.  GIVE  USER  THE  OPTION  WHICH 
COMMENT  »«»*»»»»»»»#»*»***•»»»*»*»»»«»» 
procedure  recfind 
1  abe 1  ma 1 nl 13 


*  1 V 1 = 1 13 

COMMENT  SET  UP  SCREEN  OF  OPTIONS 
ca I  1  rf  screen 
*f i rst I ine=l 1 
t last  1 ine= 13 

♦  1 i ned i f  f  =  1 
call  se 1  opt 

COMMENT  CHECK  FOR  ESCAPE  OR  HELP  AS  USUAL 
If  $option=0  and  $key=27  then  return 
If  *option=0  and  ($key=104  or  *key=72' 
call  help 
jump  malnll3 
end  i  f 

COMMENT  INPUT  A  NAME, SSAN  OR  STU.NO  ON  THE  OPTION  LINE 

COMMENT  %1 ^SELECTED  OPTION  LINE  NO.  %2=LENGTH  OF  NEXT  INPUT 

COMMENT  %3= VALUE  OF  INPUT,  X4=KEY  TO  SEARCH  ON,  *5=FIND  M0DE,%6=FIND  OPTION 

%lr$firstline+$option-l 

COMMENT  ASSUME  "EQUAL"  AND  "GLOBAL"  FIND  MODE  AND  OPTIONS 
%5="equa 1 " 

%6="" 

if  *option=l 
%2-27 

%4="(name]" 

COMMENT  ON  NAME  SEARCH,  DO  (SLOWER)  PART  WORD  AND  CASE-LESS  OPTIONS 
X5="partial " 

%6="iw" 

order  key  [name] 
elseif  *optlon=2 
*2=9 

%4="[ssan]" 
order  key  [ssan] 
elseif  ioption=3 
%2  =  4 

X4="[stu. no]" 
order  key  [stu.no] 
endi  f 

COMMENT  NEED  TO  REFRESH  SCREEN  SINCE  ABOVE  "ORDERS"  DISTURBED  IT 
cal  1  rf screen 

menu  print  10  50  15  4  ENTER  SEARCH  VALUE 
beep 

menu  input  %1  50  4  15  %2  textl 
COMMENT  GIVE  ANOTHER  CHANCE  TO  BAIL  OUT 
i f  textl  =  null 
*option=0 
return 
end  i  f 

menu  clear  15  4 

menu  print  20  58  4  15  Searching  for  Record 
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*3=  tex  1 1 

COMMENT  ALL  THE  ABOVE  WAS  SET  UP  TO  ALLOW  A  BINARY  (FAST)  SEARCH  ON  SSAN  OR 
COMMENT  STUDENT  NUMBER.  IT  SHOULD  WORK  WITH  "find  %4  *5  *3  options  g%6"  BUT, 
COMMENT  IT  DOESN'T.  FOR  SOME  REASON  I  ALWAYS  GET  CERROR  OF  3002  EVEN  WHEN 
COMMENT  BINARY  SEARCH  FINDS  THE  RIGHT  RECORD.  THE  FOLLOWING  GETS  AROUND 
COMMENT  THE  PROBLEM  BY  CHECKING  FOR  THE  ACTUAL  VALUE  WE’RE  LOOKING  FOR  EVEN 
COMMENT  IF  THE  3002  RETURN  COMES  BACK 
find  *4  %S  "%3"  options  g*6 

COMMENT  DELETED  RECORDS  ARE  LIKE  THEY’RE  NOT  THERE 
if  deleted=1.0  then  jump  rf2 

COMMENT  CERROR  RETURNS  3002  IF  RECORD  NOT  FOUND 
if  loption^l  and  cerror<>3002  then  jump  rfl 
tex  t2  =  %4 

COMMENT  ON  BINARY  SEARCH, CHECK  FOR  A  RETURNED  VALUE  THAT  WE’RE  LOOKING  FOR 
if  $option<>l  and  text2=textl  then  jump  rfl 
COMMENT  ELSE  RECORD  NOT  FOUND 
label  r  f 2 

ca 1 1  rf screen 

COMMENT  ECHO  MESSAGE  AND  ORIGINAL  VALUE 
menu  print  *1  6  4  15  ***NOT  FOUND»»» 
menu  print  %1  50  4  15  *3 
beep  3 

COMMENT  SET  HOPTION  TO  SHOW  NO  UPDATE  ON  RETURN 
$option=0 
label  rfl 
return 

COMMENT  **»*x**»***RFSCREEN ************* 

COMMENT  DISPLAY  THE  OPTION  SCREEN  FOR  RECFIND  -  LEVEL  113  MENU 

COMMENT  *»»»#»»*»*»***»»****»**#»#*»»*** 

procedure  rfscreen 

menu  clear  15  4 

menu  print  3  35  15  4  STUDENT 

menu  print  4  36  15  4  RECORD 

menu  print  5  34  15  4  SELECTION 

menu  draw  box  2  33  6  44  15  4 

menu  print  7  10  15  4  Choose  which  record  to  process  by  one  of  the  following 
fields 

menu  print  8  10  15  4  NOTE:  SSAN  L  STUDENT  NUMBER  options  are  much  faster 
menu  print  10  36  15  4  OPTIONS 

menu  print  11  24  15  4  1.  NAME  (or  partial  name) 

menu  print  12  24  15  4  2.  SSAN 

menu  print  13  24  15  4  3.  STUDENT  NUMBER 

return 

COMMENT  »»»*»*»****»*MIXEM »***»****»» 

COMMENT  LEVEL  12  PROCEDURE-  CALL  MIXING  PROGRAM 
COMMENT 


»«**  Project  File  SMSS  **** 


procedure  mixem 
label  mainl2 
$1 vl =12 

COMMENT  SET  UP  SCREEN  AS  USUAL 

menu  clear  15  4 

menu  draw  box  2  29  4  48  15  4 

menu  print  3  30  15  4  SMSS  MIXING  OPTION 

menu  print  5  11  15  4  If  there  have  been  no  changes  to  the  student  data  base 

menu  print  6  11  15  4  since  the  last  mixing  run,  you  can  skip  the  ASCII  file 

menu  print  7  11  15  4  update.  If  there  have  been  changes,  or  you  don’t  know, 

menu  print  8  11  15  4  be  safe  by  running  the  ASCI!  file  update, 

menu  print  10  36  15  4  OPTIONS 

menu  print  12  24  15  4  1.  SKIP  ASCI!  FILE  UPDATE 

menu  print  13  24  15  4  2.  RUN  ASCII  FILE  UPDATE 

Ifirstl i ne= 12 

$  1  as 1 1 i ne= 13 

$1 lnedif f=l 

<co  \m-2Z 

call  se 1  opt 

if  *option  =  0  and  $key=27  then  return 
if  $option  =0  and  ($key=104  or  <key=72) 
call  help 
jump  mainl2 
end  i  f 

COMMENT  WRITE  ASCII  ENVIRONMENT  RECORD 
execute  envwrite  in-memory 

COMMENT  IF  SELECTED,  UPDATE  ASCI!  STUDENT  FILE 
if  *option=2  then  execute  stuwrite  in-memory 
COMMENT  GO  OFF  TO  MIXER  UNDER  DOS  AND  DON’T  RETURN  HERE 
transfer  gomix 

COMMENT  REPORTS  »»»#»»»»«•««#«««»* 

COMMENT  LEVEL  13  PROCEDURE  -  GENERATE  SELECTED  REPORTS 
COMMENT  MHMHIOHHHIHHHHHIMHHHIIHIH 
procedure  reports 
label  mainl3 
*  1  v  I  =  1 3 

COMMENT  ASK  WHICH  MIX  WE’RE  REPORTING  ON 

menu  clear  15  4 

menu  draw  box  2  28  4  48  15  4 

menu  print  3  29  15  4  SMSS  REPORTS  OPTION 

menu  print  6  24  15  4  Choose  which  mix  to  report  on. 

menu  print  8  36  15  4  OPTIONS 


menu 

print 

10 

24 

15 

4 

1. 

M 1  X 1 

menu 

print 

11 

24 

15 

4 

2. 

MIX2 

menu 

print 

12 

24 

15 

4 

3. 

MIX3 

menu 

print 

13 

24 

15 

4 

4. 

MIXX  (Tentative  mix  results  of  last  mixer  run) 
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♦first i ine  = 10 

♦  1  as 1 1 1 ne  = 1 3 
* l inedif f  =  1 

♦  co  1  m  =  23 
call  se 1  opt 

If  *option  =  0  and  ♦key=27  then  return 
if  $option=0  and  (♦key=104  or  $key=72) 
call  help 
jump  mainl3 
end  i  f 

COMMENT  SAVE  SELECTED  MIX  NUMBER 

♦  mix  =  ♦  opt ion 
if  $mix=l 

%9="1" 

e I se i f  ♦mi x=2 
%9="2" 

e I sei f  ♦mi x=3 
%9- "3" 
e  1  se 

%9="x" 
end  i  f 

COMMENT  NOW  LET  USER  SELECT  REPORT 
label  mainl31 

♦  1 vl =131 

menu  clear  15  4 

menu  draw  box  2  28  4  48  15  4 

menu  print  3  29  15  4  SMSS  REPORTS  OPTION 

menu  print  5  36  15  4  OPTIONS 

menu  print  7  24  15  4  1.  SCHOOL  MIXING  SUMMARY 

menu  print  8  24  15  4  2.  SQUADRON  MIXING  SUMMARY 

menu  print  9  24  15  4  3.  SEMINAR  MIXING  REPORT 

menu  print  10  24  15  4  4.  COMPLETE  MIXING  REPORT  (all  the  above) 

menu  print  11  24  15  4  5.  SCHOOL  ALPHA  ROSTER 

menu  print  12  24  15  4  6.  SQUADRON  ALPHA  ROSTER 

menu  print  13  24  15  4  7.  SEMINAR  ALPHA  ROSTER 

♦first! ine=7 

♦  I ast 1 i ne= 13 

♦  1 i ned i f  f  =  1 
♦co I m=23 
call  se 1  opt 

if  ♦option=0  and  ♦key=27  then  jump  mainl3 
if  ♦option=0  and  (♦key=104  or  ♦key=72) 
call  help 
jump  mainl31 
end  i  f 

COMMENT  PRODUCE  REPORT 
ca 1 l  dorepor  t 
jump  mainl31 


I 


$ 

& 


I 
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return 


COMMENT  ****#•*»»*##»»*» DOREPORT *»»»»»»#*»»»#*»**»» 
COMMENT  PRODUCE  REQUESTED  REPORTS 

COMMENT  ON  INPUT,  tOPTION  INDICATES  REQUESTED  REPORT 
COMMENT  *M I X  INDICATES  REQUESTED  .1 1 X 

COMMENT 

procedure  doreport 

COMMENT  DETERMINE  WHICH  REPORT  IS  REQUESTED 


if  *option=l 
COMMENT  SCHOOL  SUMMARY 
ca 1 1  skoo 1  sum 


elseif  *option=2 

COMMENT  SQUADRON  SUMMARY-ASK  WHICH  SQUADRON 
menu  print  7  52  15  4  Squadron?  (1,2,3,  or  4) 


menu  print  8  52  15  4  382 

label  ask2 

beep 

menu  input  8  55  4  15  1  textl 
if  textl=null  then  return 

if  tex  1 1 <  > " 1 "  and  textl<>"2"  and  textl<>"3"  and  textl<>"4"  then  jump  ask2 


ca 1 1  squadsum 


elseif 

COMMENT 

COMMENT 


1  abe 
beep 
menu 
COMMENT 


<option=3 

SEMINAR  STAT  REPORT 

SEMINAR  ALPH-ASK  WHICH  SEMINAR(S) 

print  8  53  15  4  Sem i nar ( s ) ? 

print  14  27  15  4  Enter:  "ALL"  for  all  seminars 
print  15  34  15  4  "SQ1", "SQ2", "SQ3", or  "SQ4"  for  all  in  a  sqdn 
print  16  34  15  4  Seminar  number  for  single  seminar 
1  ask3 


COMMENT 


COMMENT 

COMMENT 


input  9  53  4  15  3  textl 
PICK  APPROPRIATE  SEMINARS 
if  textl  =  =  "al  1 " 
jump  sortem 

elseif  left(textl,2)=="sq" 

SELECTING  ONE  WHOLE  SQUADRON 
textl =mid( textl , 3, 1 ) 

menu  print  20  58  4  15  Selecting  Seminars 
query  predefined  squadron  index  temp2 
elseif  textl=nul 1 
return 
e  1  se 

SINGLE  SEMINAR- 

MAKE  SURE  IT’S  IN  RANGE 


.’•Vv 


v*\v.v*v«:»v «*>  «v 


V.Ssy.v.V,1 
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>*;V 

& 

$ 


if  valftextlKl  or  val(texti)  >  50  then  jump  ask3 
COMMENT  IF  HE  ENTERED  SINGLE  DIGIT,  FIX  IT 

if  len<textl)=l  then  texti="0" I textl 
menu  print  20  58  4  15  Selecting  Seminar 
query  predefined  mix%9  index  temp2 
endi  f 

order  index  temp2 
label  sortem 
ca 1 1  semsum 

elseif  $option=4 

COMMENT  COMPLETE  MIXING  SUMMARY-ALL  SEMINARS,  SCHOOL,  ALL  SQUADRONS 
cal  1  semsum 

COMMENT  CLOSE  INDEX  FILE  TEMP 
order  sequential 
ca 1  I  skoo I  sum 
isqcnt1 1 

whi le  *sqcnt  <=  4 

textXfixed  ( $sqcnt  ,0) 
ca 1 1  squadsum 
order  sequential 
*sqcnt=$sqcnt+l 
endwhi 1 e 

elseif  *option=5 
COMMENT  SCHOOL  ALPHA  REPORT 
order  key  [name] 

COMMENT  DETERMINE  OUTPUT  MEDIUM 
cal  I  whichout 
report  print  alpha  *4  %5 

elseif  $option-6 

COMMENT  SQUADRON  ALPHA-ASK  WHICH  SQUADRON 
menu  print  11  49  15  4  Squadron? 
menu  print  12  49  15  4  382 
label  ask5 
beep 

menu  input  12  52  4  15  1  textl 
if  textl=null  then  return 
%1-textl 

if  textl<>"l"  and  textl<>"2"  and  textl<>"3"  and  textlO"4"  then  jump  ask5 
order  key  [name] 

menu  print  20  58  4  15  Selecting  Squadron  *1 
COMMENT  ISOLATE  THAT  SQUADRON 

query  predefined  squadron  index  temp 
order  index  temp 

COMMENT  DETERMINE  WHICH  OUTPUT  MEDIUM 
call  wh 1 chout 
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report  print  alpha  *4  X5 
elseif  *option=7 

COMMENT  SEMINAR  ALPH-ASK  WHICH  SEMINAR(S) 
genu  print  12  49  15  4  Seminar(s)? 

menu  print  14  27  15  4  Enter:  "ALL"  for  all  seminars 

menu  print  15  34  15  4  "SQ1", "SQ2", "SQ3", or  "SQ4"  for  all  in  a  sqdn 

menu  print  16  34  15  4  Seminar  number  for  single  seminar 

label  ask6 

beep 

menu  input  13  52  4  15  3  textl 
if  textl=null  then  return 
ca 1 1  getsem 

COMMENT  TEST  FOR  ERROR  RETURN 
if  textl="0"  then  jump  ask6 
order  index  temp 

COMMENT  DETERMINE  WHICH  OUTPUT  MEDIUM 
cal  1  whichout 
report  print  mix%9  %4  %5 
endi  f 

COMMENT  MAKE  SURE  WE’RE  LOOKING  AT  WHOLE  FILE  ON  RETURN 

order  sequential 

return 

COMMENT  **»**»»*»*#*# * »SK00LSUM *»»*«»»#»»»»*»»** 

COMMENT  PRODUCE  SCHOOL  MIXING  STAT  SUMMARY 
COMMENT  *»*»#»*»*»»*»»»#»»»»»»***#»***»»#«***#** 
procedure  skoolsum 
COMMENT  SORT  BY  SQUADRON 

menu  print  20  61  4  15  Sorting  by  squadron 
sort  predefined  squadron  index  temp 
order  index  temp 

menu  print  20  47  4  15  Computing  school  stats 
COMMENT  ZERO  ALL  THE  COUNTERS-4  SETS  OF  23 
$f rstunit=l 
*  1 astuni t  =  4 
cal  1  czero 

goto  record  rec-number  1 

COMMENT  RUN  THRU  FILE-UPDATE  COUNTS  OF  ALL  ATTRIBUTES.  THERE  WILL  BE  4 
COMMENT  DIFFERENT  SETS  OF  COUNTERS  FOR  4  SQUADRONS 
label  nextrecl 
XI  - i squadron ] 
ca I  I  count 
if  record  <  records 
goto  record  next 
jump  nextrecl 
end  i  f 
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COMMENT  PRINT  OUT  THE  REPORT  WITH  ALL  ATTRIBUTE  COUNTERS 

menu  print  20  33  4  15  Printing  School  Stats-  Make  sure  printer  is  on 
1 pr i nt 

lprint  repeat ( "  ",  28) ; "SCHOOL  MIX  STATISTICS" 

lprint  repeat("  ",38);"MIX  "%9" ; repeat ( "  ",  25 ); datel ( today ) 

lprint 

lprint  "  ATTRIBUTE" ; repeat ("  " , 18) ; "SQ1" ; "  SQ2" ; "  SQ3" ; "  SQ4" ; "  TOTAL" 

lprint 

va 1 uel = 1 

COMMENT  THERE  ARE  23  DIFFERENT  ATTRIBUTES 

COMMENT  AND  THE  FIELD  DESCRIPTIONS  ARE  IN  THE  ENVIRONMENT  FILE 


goto  file  environ  screen  environl 
whi le  valuel<=  23 
XI  =va I uel 


COMMENT  PRINT  ATTRIBUTE  COUNT, 
lprint  repeat(" 
lprint  repeat!" 
lprint  repeat(" 

1  prli.^  repeat(" 
lprint  repeati" 
va I uel = va 1 uel + 1 
endwhi 1 e 

COMMENT  FORM  FEED 
lprint  chr (12) 

COMMENT  CLEAR  AWAY  THE  COUNTERS 


LABEL  .COUNT  FOR  EACH  SQUADRON,  &  TOTAL  COUNT 
",2-len("Xl") ) ;"X1.  "; tdXl ]; repeat ( "  " , 27- I en ( CdXl ] ) ) ; »cXl_l ; 
",4-len(flxed( $cXl _i ,  0) ) ) ;$cXl_2; 

" , 4- 1 en ( f i xed ( 4cXl_2,  0) ) ) ;icXl_3 
" , 4- 1 en ( f i xed ( 4cXl_3, 0) ) ) ; tcXl_4 ; 

", 4-1 en (fixed ($cXl_4,0)>); 4cXl_l ♦4cXl_2+4cXl_3+4cXl_4 


call  cl  ear 

COMMENT  BACK  TO  STUDENT  FILE 

goto  file  XOstudents  screen  studentl 
return 


COMMENT  «»»»»*»»*»»#*»«*SQUADSUM»* »»*****»****»» »»*»*»»» 

COMMENT  PRODUCE  SQUADRON  SUMMARY  REPORT 
COMMENT  ON  INPUT  TEXT1=  SQUADRON  NUMBER 
COMMENT 

procedure  squadsum 
X3=textl 

menu  print  20  58  4  15  Selecting  Squadron  X3 
COMMENT  ISOLATE  THAT  SQUADRON 

query  predefined  squadron  index  temp2 
order  index  temp2 
COMMENT  SORT  BY  SEMINAR 

menu  print  20  61  4  15  Sorting  by  Seminar 
sort  predefined  semalfX9  index  temp 
COMMENT  ZERO  ALL  THE  COUNTERS-NEED  TO  KNOW  WHICH  SEMINARS  ARE  IN  THIS 
COMMENT  SQUADRON.  ENVIRONMENT  FILE  HAS  THAT 
goto  file  environ  screen  environl 
tfrstuni t=[ fstsemX31 
$lastunit=[ lstsem*3I 
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menu  print  20  61  4  15  Preparing  Counters 
ca l 1  czero 

goto  file  XOstudents  screen  studentl 
order  index  temp 

menu  print  20  45  4  15  Computing  squadron  stats 
goto  record  rec-number  1 

COMMENT  RUN  THRU  FILE-UPDATE  COUNTS  OF  ALL  ATTRIBUTES.  THERE  WILL  BE  4 

COMMENT  DIFFERENT  SETS  OF  COUNTERS  FOR  4  SQUADRONS 
label  nextrec2 
Xl=val ( [mixX9I ) 
ca 1 1  count 
if  record  <  records 
goto  record  next 
jump  nextrec2 
end  i  f 

COMMENT  PRINT  OUT  THE  REPORT  WITH  ALL  ATTRIBUTE  COUNTERS 

menu  print  20  28  4  15  Printing  Squadron  X3  Stats-  Make  sure  printer  is  on 
1 pr i nt 

lprint  repeat ( "  ",  27)  ;  "SQUADRON  ";"X3";"  MIX  STATISTICS" 

1 pr i nt  repeat ( "  ",38);"MIX  "; "X9" ; repeat  ( "  ",  25) ; datel ( today ) 
lprint 

lprint  "  ATTR I  BUTE"; repeat ("  ",18>; 

COMMENT  PRINT  ALL  THE  SEMINAR  NUMBERS  ACROSS  TOP  LINE 
valuel=$f rstunit 
while  valuel<=  $lastunit 

lprint  repeat ("0" , 2- 1 en( f I xed< va 1 uel , 0) ) ) ; va luel ; "  "; 
va 1 uel - va 1 uel + 1 
endwhi  1  e 
lprint  "  TOTAL" 
lprint 
va 1 uel = 1 

COMMENT  THERE  ARE  23  DIFFERENT  ATTRIBUTES 

COMMENT  AND  THE  FIELD  DESCRIPTIONS  ARE  IN  THE  ENVIRONMENT  FILE 
goto  file  environ  screen  environl 
menu  print  20  52  4  15  Printing  Squadron  X3  Stats 
while  va 1 uel <-23 
XI =va 1 uel 

COMMENT  PRINT  ATTRIBUTE  NUMBER,  LABEL  .COUNT  FOR  EACH  SEMINAR,  S.  TOTAL  COUNT 
lprint  repeat ( "  " , 2- I en < "XI " ) ) ; "XI .  ";[ dXl ]; repeat ( "  " , 27- 1 en ( [ dXl ] ) ) ; 
va 1 ue2  =  *f  r  s tuni t 
$  tot  =0 

while  va 1 ue2<  =  * 1  as  tun i t 
X2= va I ue2 

lprint  $cXl_X2; repeat ( "  ",  3- 1 en< f i xed ( $cXl _X2, 0) ) ) ; 
va 1 ue2= va 1 ue2  + 1 
$tot=*tot»$cXl_X2 
endwh i I e 
lprint  *tot 
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va 1 ue 1  =  va 1 ue  1  +  1 
endwh  i  1  e 

COMMENT  FORM  FEED 
1 pr i nt  chr (12) 

COMMENT  CLEAR  AUAY  THE  COUNTERS 
call  clear 

COMMENT  BACK  TO  STUDENT  FILE 

goto  file  XOstudents  screen  studenti 
return 

COMMENT  ********************* SEMSUM* »*»**»* ***»**»»*»*»* 

COMMENT  PRODUCE  SEMINAR  SUMMARY  REPORT 

COMMENT  it****#***#*#*#*#*#********##*#**####*****#**##*** 

procedure  semsum 

menu  print  20  58  4  15  Sorting  by  seminar 
COMMENT  SORT  BY  SEMINAR, RANK  (KIND  0F)-1ST  IS  MOST  POTENTIAL  SL, LAST  IS  LEAST 
sort  predefined  slorderX9  index  temp 
order  index  temp 

COMMENT  DETERMINE  WHICH  OUTPUT  MEDIA 
call  wh i chcut 

report  print  semstatX9  X4  X5 
return 


COMMENT  *»*****»»»*#* **COUNT»* ******  ************** 

COMMENT  UPDATE  ALL  THE  ATTRIBUTE  COUNTS  BASED  ON  THIS  RECORD 
COMMENT  ****************************************** 


procedure  count 

COMMENT  IGNORE  DELETED  RECORDS 
if  deleted  then  return 

COMMENT  EACH  "*C"  COUNTER  IS  A  COUNT  OF  THAT  ATTRIBUTE 
COMMENT  XI  INDICATES  WHICH  UNIT  (SQUADRON  OR  SEMINAR) 
<cl_Xl=$cl_%l+if  Cusaf ]=="y"  then  1  else  0 

[ nomast  1 =  =  ny"  then  1  else  0 


$c2_Xl=$c2_Xl+if 
»c3_Xl=$c3_Xi+if 
$c4_Xl=$c4_Xl+if 
$c5_Xl=$c5_Xl+ if 
$c6_Xl =$c6_Xl ♦ if 
$c7_Xl=$c7_Xl  +  i  f 
$c8_Xl=$c8_Xl+if 
»c9  X 1  =  *c9  XHif 


[ sorg ] =  =  "y" 

I  pi  1 ot ]  =  =  "yf 


then  1  else  0 
then  1  else  0 

i nav i gator  I =  =  "y"  then  1  else  0 
[ s i ng I e ] r ="y"  then  1  else  0 
[usafal=="yn  then  1  else  0 
iarmy]=="y"  then  1  else  0 
_  _  Cothercomp 1 =="y"  then  1  else  0 

$clO_Xl  =  $clO_Xl t i f  [minori ty ]  =  =  "y"  then  1  eise  0 
Scl 1_X1 =$cl 1 _X1 ♦ i f  [ f ema 1 e ] =="y"  then  1  else  0 
*cl2_Xl 12_X1 + i f  [captain]r=ny"  then  1  else  0 
$cl3_Xl  =  $cl3_Xl  +  i f  [ non  1 i ne  1  =  =  "y"  then  1  else  0 
$cl4_Xl  =  $cl4_Xl  ♦  i  f 
tclS  XI =$cl5  Xl»if 


[ stratopsk ]=="y"  then  1  else  0 
t tacopsk 1 =="y"  then  1  else  0 
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o£ 
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V 


h- 
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$cl6_Xl=$cl6. 

lcl7_Xl=$cl?. 

$cl8_Xl=icl8 

$cl9_Xl =$cl9 

$c20_Xl=$c20_ 

$c21_Xl=»c21. 

$c22_Xl=ic22_ 

*c23_Xl=*c23_ 

return 


Xl  +  if 
Xl  +  if 
Xl  +  if 
Xl  +  if 
Xl  +  if 
Xl  +  if 
Xl+if 
Xl  +  if 


Cppbsk]=="y' 
Cacqlogsk]=: 
[ spacesk  3  =  =  ' 
C  tbdl ]  =  =  "y” 

[ tbd2i =="y" 

[ tbd3J=="y" 
ttbd43==ny" 

C  tbd5 ] =  =  "y" 


then  1  else  0 
’y"  then  1  else  0 


then  1  else  0 


then 

1 

e  1  se 

0 

then 

1 

e  1  se 

0 

then 

1 

el  se 

0 

then 

1 

e  1  se 

0 

then 

1 

e  1  se 

0 

COMMENT 

COMMENT 

COMMENT 

COMMENT 

COMMENT 

COMMENT 

COMMENT 

COMMENT 


»»#**»»«**»*«**»»*  CZERO  »»*»*»*»»*»»###**t**»»»* 

ZERO  ALL  THE  COUNTERS 

COUNTERS  ARE  *Cij  WHERE  i  RANGES  FROM  1  TO  23  AND 
j  CAN  BE  1  TO  4  FOR  SQUADRONS  IN  THE  SCHOOL  SUMMARY 
OR  ANY  SEMINAR  NUMBER  IN  THE  SQUADRON  SUMMARY 
ON  INPUT,  $FRSTUNIT  S«  SLASTUN I T  ARE  1  AND  4  FOR  SCHOOL  SUMMARY 

OR  THE  HIGHEST  &  LOWEST  SEMINAR  NUMBER  FOR  SQUADRON  SUMMARY 

procedure  czero 

valuel=$f rstunit 

while  valuel  <=  Slastunit 

XI =va I uel 

value2=l 

COMMENT  23  COUNTERS  FOR  EACH  UNIT 
while  value2<=23 
X2=value2 
$cX2_Xl =0 
value2=value2+l 
endwhi 1 e 
valuel=valuel+l 
endwhi 1 e 
return 


COMMENT  »****#**#*##*** »**CLEAR*» **»*»**«»»**«*»* **««** 

COMMENT  CLEAR  ALL  THE  COUNTERS  FROM  MEMORY 

COMMENT  *****##*«*»»###*»**»»**»»*»»»»»**»»****#»*»#*#»## 


procedure  clear 
valuel=$f rstunit 
while  valuel  <=  llastunit 
XI  =  va 1 uel 
va 1 ue2= 1 

COMMENT  23  COUNTERS  FOR  EACH  UNIT 
while  va 1 ue2<=23 
X2=val ue2 
clear  $cX2_Xl 
va 1 ue2= va 1 ue2+l 
endwhi I e 
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va 1 uel=va I uel  + 1 
endwhi 1 e 
return 

COMMENT  *«****»*»#* *G£TSEM »*»»*»*«** 

COMMENT  RUN  APPROPRIATE  QUERY  BASED  ON  TEXT1  INPUT 
COMMENT  RETURN  WITH  TEMP  INDEX  FILE  SET 
COMMENT  »****»«****«»****##*»#**»#** 
procedure  getsem 
if  textl=="al I" 

COMMENT  SORT  WHOLE  FILE  ON  SEMINAR  ORDER.  REMEMBER  *9  IS  BASED  ON  $MIX 
elseif  1 ef t ( textl , 2) =="sq" 

COMMENT  SELECTING  ONE  WHOLE  SQUADRON 
textl=mid(textl,3, 1) 

menu  print  20  59  4  15  Selecting  Seminar(s) 
query  predefined  squadron  index  temp2 
order  index  temp2 
COMMENT  SORT  BY  SEM I NAR/ ALPHA 
e  1  se 

COMMENT  SINGLE  SEMINAR 
COMMENT  MAKE  SURE  IT’S  IN  RANGE 

if  valCtextlXl  or  val(textl)  >  50 
textl="0" 
return 
end  i  f 

COMMENT  IF  HE  ENTERED  SINGLE  DIGIT,  FIX  IT 
if  len(textl)=l  then  textl="0" I textl 
menu  print  20  56  4  15  Selecting  Seminar 
query  predefined  mixX9  index  temp2 
order  index  temp2 
end  i  f 

menu  print  20  61  4  15  Sorting  by  seminar 
sort  predefined  semalfX9  index  temp 
return 

COMMENT  »«**t*#t#***»***#*#*»WHI CHOUT* * »»*#*****»*«*******#»#»* 

COMMENT  USER  SELECTS  PRINT  OUTPUT  OPTION:  PRINTER,  DISK,  OR  SCREEN 
COMMENT  ON  RETURN,  %4=  ’’PRINTER",  "DISK",  OR  "SCREEN" 

COMMENT  *5=  NULL,  FILENAME  OF  DISK  FILE,  OR  NULL 

COMMENT  »*»»»»»****»**»**«#**##»*********»*»****»*»*»***#»*»**» 

procedure  whichout 
label  mainiSll 
*  1 v 1  =  131 1 

COMMENT  DISPLAY  SELECTION  SCREEN 

menu  clear  15  4 

menu  draw  box  2  31  5  45  15  4 

menu  print  3  32  15  4  REPORT  OUTPUT 


»***  Project  File  SMSS  »»«* 


menu  print  4  34  15  4  SELECTION 

menu  print  6  19  15  4  Choose  where  you  want  report  output  sent 

menu  print  8  36  15  4  OPTIONS 

menu  print  10  24  15  4  1.  PRINTER 

menu  print  11  24  15  4  2.  DISK 

menu  print  12  24  15  4  3.  SCREEN 

menu  print  14  24  15  4  Default  (Esc)  is  PRINTER 

$f irstl ine=10 

*  1 ast l ine= 12 

$  1 i ned i f  f  =  1 

tco 1 m=23 

call  se 1  opt 

if  $option=0  and  $key=27  then  loption=l 
if  $option=0  and  ($key=104  or  $key=72) 
call  h ^ 1 p 
jump  mainl3ll 
end  i  f 
%6=nu 1 1 

COMMENT  CALCULATE  %4  AND  X5 
if  $option=l 
%4="pr inter" 

%5=nul 1 

elseif  $option=2 
%4="d i sk" 

COMMENT  GET  DISKFILE  NAME 

menu  print  10  37  15  4  Enter  file  (or  path)  name--No  extension 
beep 

menu  input  11  37  4  15  20  textl 
if  textl=null  then  jump  mainl311 
X5=text 1 

%6  =  "f i  1 e,  "  !"X5"!  ".prt" 
e  1  se 

X4="screen” 

X5=nul 1 
end  i  f 

menu  print  20  30  4  15  Sending  report  to  %4  %6 
return 


»**»  Project  File  ENVWRITE  »«»* 


COMMENT  WRITE  THE  ASCII  ENVIRONMENT  RECORD 
COMMENT  FIRST  ERASE  ENV.ASC  IF  IT  ALREADY  EXISTS 
goto  file  environ  screen  environl 
if  f i 1 e ( "env . asc" ) = 1 . 0  then  file  erase  env.asc 
COMMENT  REBUILD  ONE-RECORD  ASCII  ENVIRONMENT  FILE 

COMMENT  THIS  ORDER  SEEMS  A  LITTLE  COMPLICATED  BUT  IT’S  THE  ORDER  THAT  MIXER 
COMMENT  NEEDS  THEM  IN.  IF  THE  STRUCTURE  OF  ENVIRON  EVER  CHANGES,  THESE  FIELD 
COMMENT  NUMBERS  WILL  PROBABLY  CHANGE,  BUT  THE  RELATIVE  ORDER  MUST  STAY  THE 
COMMENT  SAME.  THAT  ORDER  IS  M I X, MED  I  A, NUM. BUDS, FSTSEM1 , LSTSEM1 , M I SSEM1 1 , 
COMMENT  MISSEM12.MISSEM13, (SEMINAR  DATA  FOR  SQDN  2,3,*. 

4) , SEMCHANGE, BUDS, SPACESK, PPBSK, TACOPSK 

COMMENT  STRATOPSK, PILOT,  ANV,  SINGLE  USAFA,  ARMY,  OTHRCOMP, MINORITY,  FEMALE, 
COMMENT  CAPTAIN,  NONLINE,  SORG, SOSRULE, NOMAST, USAF, I ORULE, TBD1 , 

COMMENT  TBD2, TBD3, TBD4, TBD5.  NOTE  AR 1  RULE  NOT  USED. 

write  all  C 1 ; 74 ; 2 1 22; 27; 26 ; 45 ; 43 ; 42 ; 41 ; 44 ; 31 1 40; 30;24;29 ; 28 ; 25 ;46 i 50]  ascii 
env . asc 
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COMMENT  PROJECT  FILE  GOMIX 

COMMENT  URAPUP  SMART  SESSION  AND  EXIT  OFF  TO  DOS  TO  DO  MIXING 
menu  clear  15  4 

menu  print  20  51  4  15  Exit  Smart.  Go  off  to  mixer 


*»»«  Project  File  IQDEL  *»*» 


COMMENT  PROJECT  IODEL-  DELETE  ALL  THE  INTERNATIONAL  OFFICERS 
COMMENT  THEY’RE  GONE  AFTER  2ND  MIX.  THIS  PROCESS  MARKS  THEM  DELETED  BUT  DOES 
COMMENT  NOT  PURGE  THEIR  RECORDS  FROM  THE  STUDENT  FILE 
menu  clear  15  4 

menu  print  3  24  15  4  SMSS  -  DELETE  10’ S 
menu  draw  box  2  23  4  42  15  4 

menu  print  5  2  15  4  This  process  should  be  done  prior  to  mixing  for  3rd  mix 

menu  print  6  2  15  4  since  the  10’ s  will  be  gone  then. 

menu  print  8  2  15  4  ARE  YOU  SURE  YOU  WANT  TO  DELETE  iO’S(y/n)? 

label  iodell 

beep  1 

menu  input  8  45  4  15  1  ^answer 
if  ^answer =="n"  then  end 

if  $answer <>ny"  and  $answer<>"Y”  then  jump  iodell 
COMMENT  USE  PREDEFINED  QUERY  TO  DELETE  I  OS 

menu  print  20  40  4  15  Deleting  International  Officer  Records 

query  predefined  iodel  neither 

end 


*»**  Project  File  LOADEM  »*** 


COMMENT  ***»###***» »  »L0ADEM »**#»»*******»*» 

COMMENT  INITIAL  LOAD  OF  STUDENT  DATA  BASE  L  HELP  SCREEN  FILE 
COMMENT  *0  MUST  BE  SET  OUT  OF  GETMEDIA  OR  NEWMIX 
COMMENT  *«#**»#***«*#*«*«««*****«*«»*»****« 
menu  print  20  58  4  15  Loading  Student  file 
load  XOstudents  screen  studentl 
if  cerror=3001 
beep  3 

message  Error  opening  students  database--gi ve  up 
COMMENT  TELL  SMSS.BAT  NOT  TO  DO  MIXING 
un ) oad  a  1 1 

if  f i 1 e ( "env, asc" ) = 1 . 0  then  file  erase  env.asc 
quit 
endi  f 

activate  %Ostudents  screen  student2 

menu  print  20  54  4  15  Loading  Help  Screen  file 

activate  help  screen  standard 


»**»  Project  File  NEWMIX  **** 


COMMENT 

COMMENT  PROJECT  NEUM I X-UPDATE  STUDENT  DB  WITH  RESULTS  OF  MIXING 
COMMENT  *media  and  %0  set  on  return  IAW  environment  file 
COMMENT  *************************************************** 

COMMENT  FIRST  GET  MEDIA  CODE  OUT  OF  ENVIRONMENT  FILE  TO  DETERMINE  HOW  WE’RE 

COMMENT  OPERATING.  THIS  WAS  SET  BY  USER  AT  INITIAL  ENTRY 

goto  file  environ  screen  environl 

goto  record  rec-number  1 

let  •media^imedia) 

COMMENT  FLOPPY? 
if  lmedla=l 
%0="b:\" 

COMMENT  HARD  DISK? 
elseif  $media=2 
%0=nu 1 1 

COMMENT  FLOPPY/VDISK? 
elseif  $media=3 
%0  =  "d : \" 

COMMENT  ANYTHING  ELSE  MEANS  A  PROBLEM 
e  I  se 

message  ERROR  in  environment  file  media  code 
stop 
endi  f 

COMMENT  READ  STUOUT.ASC  (MIXER  OUTPUT)  INTO  NEWMIX  DATA  BASE 

COMMENT  NEWMIX  WILL  BE  THE  TRANSACTION  FILE  TO  UPDATE  FIELDS  IN  STUDENTS 

load  %Onewmix  screen  standard 

menu  print  20  37  4  15  Reading  mixer  interface  file  (stuout.asc) 

COMMENT  MIXER  PASSES  NAME, STU. NO,  SQUADRON, MI XX, RULE  PRI OR ITY, SLX, ASLX, CC, SRO 
COMMENT  WE’LL  IGNORE  NAME, CC, AND  SRO 

read  ascii  stuout.asc  fields  CO ; stu. no ; squadron;mi xx ; prior i ty ; s 1 x ; as  1 x ] 

COMMENT  PREPARE  FOR  TRANSACTION  UPDATE.  LOAD  STUDENT  FILE 

execute  loadem  in-memory 

order  key  Istu.no] 

split  horizontal  11  2 

goto  window  2 

goto  file  KOnewmix  screen  standard 

menu  print  19  33  4  15  ***UPDATING  STUDENT  FILE  WITH  NEW  MIX  DATA*** 

COMMENT  DETERMINE  TIME  TO  RUN 
if  $media=l 
%1="33" 

elseif  $media=2 
%1="9" 

elseif  *media=3 
*1  ="15’’ 
end  if 

menu  print  20  33  15  4  This  will  take  about  *1  minutes.  Please  wait, 
transactions  predefined  newmix  no-audit 
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» « *  *  Project  File  NEWM1X  »*** 


COMMENT  PREDEFINED  TRANSACTION  SET  UP  TO  DELETE  RECORDS-NOW  PURGE  THEM 
c  lose 

unload  file  XOnewmix 

menu  print  20  46  4  15  Purging  used  transaction  records 
utilities  purge  fcOnewmix 

COMMENT  DELETE  FILE  STUOUT.ASC  TO  SHOW  UPDATE  HAS  BEEN  DONE 
repa i nt 

file  erase  stuout.asc 


**«»  Project  File  RAMLOAD  **** 


fei 


tj*.! 

i 


m 


•to 
*  vj 

m 


COMMENT  *»**»**»**»*»* t RAMLOAD 

COMMENT  LOAD  STUDENT  (NEWMIX)  DATA  BASES  INTO  VIRTUAL  MEMORY  STORAGE 

COMMENT  VIRTUAL  MEMORY  OPERATES  MUCH  FASTER  THAN  FLOPPY  DISK 

COMMENT  SYSTEM  MUST  HAVE  BEEN  BOOTED  WITH  THE  FOLLOWING  COMMAND  IN  THE  ROOT 

COMMENT  CONFIG.SYS  FILE - DEV  I  CE=\B  I NWD I SK.  SYS  220 

COMMENT 

menu  print  16  2  4  15  NOTE: 

menu  print  16  7  15  4  This  option  requires  that  VDISK  be  setup  in  the  root 

conf i g. sys  file 

menu  print  17  7  15  4  at  startup  time.  If  not,  go  back  to  DOS  &  do  it. 

menu  print  18  7  15  4  Is  VDISK  configured?  (y/n) 

I  abe 1  r 1 oop 
beep 

menu  Input  18  34  4  15  1  textl 

COMMENT  IF  USER  BAILS  OUT  RETURN  WITH  TEXTi =N 

if  textl=="n"  then  end 

if  textlO"y"  and  textl<>"Y"  then  jump  rloop 
COMMENT  COPY  ALL  STUDENTS  L  NEUMIX  FILES  TO  VDISK 
menu  print  20  47  4  15  Loading  Student  file  to  ramdisk 
file  copy  b:\students.db  to  d:students. db 
file  copy  b:\students.dbs  to  d : students. dbs 

COMMENT  INDEX  FILES- IF  STRUCTURE  OF  STUDENTS  CHANGES,  THESE  MAY  HAVE  TO  CHANGE 

file  copy  b:\students.I01  to  d : students . iOl 

file  copy  b:\students.i06  to  d : students.  i06 

file  copy  b:\students.l21  to  d : students. 121 

file  copy  b:\newmix.db  to  d:newmix.db 

file  copy  b:\newmix.dbs  to  d : newmi x . dbs 


*«»  Project  File  RAMSAVE 


COMMENT  »* ********* *»«RAMSAVE* »*»***» *»***»»»•**« 

COMMENT  SAVE  VD1SK  FILES  BACK  TO  FLOPPY  AFTER  SMSS  SESSION  ENDS 
COMMENT 

menu  print  20  46  4  15  Reclaiming  vdisk  files  to  floppy 

COMMENT  FILE  COPY  DOESN’T  0VERUR1TE-S0  FIRST  DELETE  DESTINATION  FILES 

file  erase  b:students.» 

file  erase  b : newtai x . db* 

COMMENT  VOLATILE  VDISK  BACK  TO  PERMANENT  FLOPPY 
file  copy  distudents  db  to  b : students . db 
file  copy  d : students . dbs  to  b : students . dbs 

COMMENT  INDEX  FILES-NOTE  IF  FILE  STRUCTURE  CHANGES-THESE  MAY  HAVE  TO  CHANGE 

file  copy  d : students. iOl  to  b: students. 101 

file  copy  d : students. 106  to  b:students. i06 

file  copy  distudents. 121  to  bistudents. 121 

file  copy  dinewmix.db  to  bmewmix.db 

file  copy  d :  newmi  x .  dbs  to  bmewmix.  dbs 

COMMENT  ERASE  RAMDISK  FILES  SO  DON’T  GET  "FILE  EXISTS"  MESSAGE  NEXT  TIME 
file  erase  d : * . * 


»»**  Project  File  STUNUMB  *«»* 


COMMENT  PROJECT  STUNUMB -CREATE  STUDENT  NUMBERS 

COMMENT  THIS  SHOULD  BE  A  ONE  TIME  OPERATION  DONE  WHEN  STUDENT  FILE 
COMMENT  IS  SETTLED 

COMMENT  SET  UP  SCREEN- ISSUE  WARNING  MESSAGE 
menu  clear  15  4 

menu  print  3  24  15  4  SMSS  -  CREATE  STUDENT  NUMBERS 
menu  draw  box  2  23  4  53  15  4 

menu  print  5  2  15  4  This  process  should  generally  be  done  once  at  the  start  of 

menu  print  6  2  15  4  the  school  year  after  all  the  records  have  been  added  to 

menu  print  7  2  15  4  the  student  file.  Once  you’ve  assigned  student  numbers, 

menu  print  8  2  15  4  you  shouldn’t  do  this  anymore. 

menu  print  10  2  15  4  ARE  YOU  SURE  YOU  WANT  TO  ASSIGN  NEW  STUDENT  NUMBERS  (y/n) 
label  stunl 
beep  1 

menu  input  10  61  4  15  1  tanswer 
if  taneyer  —  '^’’  then  end 

if  ^answer <>"y"  and  $answer<>"Y'’  then  jump  stunl 
COMMENT  PUT  FILE  IN  ALPHA  ORDER 
order  key  [name] 

COMMENT  USE  PREDEFINED  QUERY  TO  UPDATE  EACH  [STU.NO]  TO  10, 15, 20, ...  ETC 

menu  print  20  31  4  15  Assigning  student  number  to  each  student  record 

query  predefined  stunum  neither 

COMMENT  REORGANIZE  KEY  FOR  NEW  VALUES 

menu  print  20  44  4  15  Building  student  number  key  file 

key  update 


**»*  Project  File  STUREAD  *»** 


COMMENT  PROJECT  STUREAD-READ  IN  THE  STUDENT  DATA  BASE  FROM  ASCII  DISK 
COMMENT  ON  INPUT,  Soption  IS  SET  TO  1  OR  2  FROM  LEVEL  ill  OPTION  SCREEN 
ca I  1  header 

COMMENT  READ  IN  ASCII  FILE-  FIRST  GET  FILENAME 

menu  print  7  2  15  4  ENTER  NAME  OF  INPUT  FILE  (e.g.  STUDENT. ASC) 

menu  print  8  2  15  4  (Esc  to  exit). 

beep 

menu  input  7  46  4  15  12  textl 
COMMENT  LET  HIM  BAIL  OUT  HERE  TOO 
if  textl=null  then  end 

COMMENT  OPTION  1  MEANS  BUILD  FROM  SCRATCH-DELETE  ALL  RECORDS 
if  toption  =  1  then  call  deletem 
ca 1 1  header 
%l=textl 

message  Load  source  diskette  in  drive  A:--Any  key  when  ready 
menu  print  20  41  4  15  Reading  source  file  into  Student  file 
COMMENT  FIELD  LIST  MAY  HAVE  TO  CHANGE  DEPENDING  ON  AU/DP 
COMMENT  NEXT  IS  INTERIM  FORMAT  FROM  BUCKNER’S  DATABASE 

READ  ASCII  A:\*l  FIELDS  [ 1 ; 6 ; 2 ; 9 ; 8 ; 12 ; 19 ; 26 ; 3 ! 5 ; 7 ; 1 1 ; 18 ; 10 ; 20 1 22 ; 27 ; 23 1 25 ; 13 1 17 ; 

28 1 3 1 ; 33 ] 

COMMENT  UPDATE  ALL  THE  KEYS 

menu  print  20  36  4  15  Organizing  all  key  indexes 
key  update 

COMMENT  IF  FLOPPY  ,  MAKE  SURE  WE  GET  RUNTIME  DISK  BACK  IN  A: 

if  $media=l  or  $media=3  then  message  Load  SMSS  execution  disk  back  in  A:--Any 

key  when  ready 

end 

COMMENT  *»»»***» * »HEADER »**#»***»*. 

COMMENT  PAINTS  THE  SCREEN  PROPERLY 
COMMENT  »»**#*»**«»**»*»***»**»***» 
procedure  header 
menu  clear  15  4 

menu  print  3  26  15  4  SMSS  -  BUILD  STUDENT  FILE 

menu  draw  box  2  25  4  51  15  4 

return 

COMMENT  *  »*»#«» DELETEM»* ****»»**» 

COMMENT  CLEAR  OUT  EXISTING  STUDENT  DATA  BASE  BY  DELETING  ALL  RECORDS 
COMMENT  «*****»*»»*»**»»#****»*** 
procedure  deletem 

menu  print  5  2  15  4  YOU  ARE  ABOUT  TO  ERASE  ALL  CURRENT  DATA  BASE  RECORDS 
menu  print  6  2  15  4  ARE  YOU  SURE  YOU  WANT  TO  DO  THIS  (y/n)? 

1 abe 1  dell 
beep  3 

menu  input  6  41  4  15  1  $answer 
if  *answer  ==  "n"  then  end 

if  tanswer  <>"y"  and  $answer  <>"Y"  then  jump  dell 


■HB-IH93  t!S  STUDENT  NIX  SOFTWARE  SVSTEM  (SMSS)  REHOSTLU)  AIR 
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UNCLASSIFIED 


**»«  Project  File  STUREAD  *«** 


COMMENT  THAT’S  ENOUGH  WARNING-HE  REALLY  WANTS  TO  DO  IT 
COMMENT  PREDEFINED  QUERY  "DELALL"  DELETES  ALL  ACTIVE  RECORDS-USE  IT 
menu  print  20  33  4  15  Deleting  all  old  records  in  Student  file 
query  predefined  delall  neither 
unload  file  XOstudents 

menu  print  20  33  4  15  Purging  all  deleted  records  from  Student  file 
utilities  purge  XOstudents 
load  XOstudents  screen  studentl 
return 
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»»««  Project  File  STUURITE  »*»» 


COMMENT  ******************** 

COMMENT  PROJECT  STUURITE 

COMMENT  WRITE  THE  ASCII  STUDENT  FILE  TO  PASS  TO  THE  MIXER 
COMMENT  *»»****»»**#»*»*»#»»» 
goto  file  KOstudents  screen  studentl 
COMMENT  ORDER  BY  RANK,  DOR,  TAFCSD 
menu  print  20  64  4  15  Sorting  by  rank 
sort  predefined  dor  index  temp 
'  order  index  temp 

;  COMMENT  GET  RID  OF  LAST  VERSION  OF  ASCII  FILE  IF  IT  EXISTS 

»  if  file  ("stu.asc")=1.0  then  file  erase  stu.asc 

COMMENT  BUILD  THE  ASCII  FILE  FOR  MIXING 

menu  print  20  40  4  15  Writing  mixer  interface  file  (stu.asc) 
write  all  [ 1 ; 28 ! 31 ;33 ! 39 ;42 ! 65 ]  ascii  stu.asc 
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Appendix  Three 


SHSS  Mixer  Prograi 
Prograi  Listing 

The  mixer  is  a  program,  written  in  GW-BASIC,  that  does  student 
mixing  according  to  the  rules  passed  in  the  environment  record 


1 0000  REM  t***t****»***»*#**»***»*#**«*»***#)(»»*#»»)i#«*»»***»»»»#)i*»»»»**»i*»»» 
10010  REM  »»  ** 
10020  REM  **  PROGRAM  NAME:  STUDENT  MIX  SOFTWARE  SYSTEM  (SMSS)  *» 
10030  REM  *»  *» 
10040  REM  **  FUNCTION:  MIX  ACSC  STUDENTS  *« 
10050  REM  *»  FILE  NAME:  MIXER. BAS  DATE:  16  FEB  1988  *» 
10060  REM  »»  COMPUTER:  ZENITH  158  LANGUAGE:  BASIC  »» 
10070  REM  **  AUTHOR:  ART  DECELLES  ** 
10080  REM  **  *t 
10090  REM 

10100  REM  **  *» 
10110  REM  *»  DESCRIPTION:  *« 
10120  REM  »*  «* 
10130  REM  *»  THIS  PROGRAM  OPTIMALLY  MIXES  ACSC  STUDENTS  BASED  ON  STUDENT  ** 
10140  REM  »*  CHARACTERISTICS  AND  RULE  PRIORITIES  [NINE  (HIGHEST)  TO  ZERO  •» 
10150  REM  **  (LOWEST)].  MIXING  OCCURS  IN  THE  FOLLOWING  GENERAL  SEQUENCE:  *« 
10160  REM  **  «« 
10170  REM  **  1.  SEMINAR  LEADERS  AND  THEIR  ASSISTANTS  (SL/ASL)  ARE  ** 
10180  REM  **  ASSIGNED  IN  THE  FIRST  PASS  OF  THE  STUDENT  DATA.  ALSO.  *» 
10190  REM  **  PRE-ASSIGNED  STUDENTS  ARE  "LOCKED- IN".  INTERNATIONAL  ** 
102QQ  REM  **  OFFICERS  AND  SOS  STUDENTS  DON'T  CHANGE  SEMiNARS  IF  THEY  *» 
10210  REM  «*  ARE  ASSIGNED  A  PRIORITY  OF  "9".  ** 
10220  REM  #*  *# 
10230  REM  **  2.  ALL  OTHER  STUDENTS  ARE  RANDOMLY  ASSIGNED  TO  SEMINARS  ** 
10240  REM  »»  BASED  ON  THEIR  CHARACTERISTICS,  EACH  CONSIDERED  IN  ORDER  »* 
10250  REM  »*  OF  RULE  PRIORITY  ESTABLISHED  BY  THE  MIX  MASTER.  «« 
10260  REM  »*  ** 
10270  REM  *»  A.  STUDENTS  CANNOT  BE  ASSIGNED  TO  A  PREVIOUS  SEMINAR.  ** 
10280  REM  **  B.  ASSIGNMENT  IS  MADE  IF  ALLOCATIONS  PERMIT.  »* 
10290  REM  »«  C.  IF  CONFLICT  OCCURS  MIXER  ATTEMPTS  TO  MAKE  A  ONE  FOR  ** 
10300  REM  **  ONE  EXCHANGE  WITHIN  ALLOCATION  CONSTRAINTS.  »* 
10310  REM  **  D.  IF  STILL  NOT  POSSIBLE  A  FORCED  ASSIGNMENT  IS  MADE:  ** 
10320  REM  ##  »* 
10330  REM  a.  IF  AN  ALLOCATED  SLOT  IS  AVAILABLE  FOR  THE  RULE  «* 
10340  REM  **  BEING  PROCESSED.  *t 
10350  REM  *»  b.  IF  NOT,  A  ONE  FOR  ONE  EXCHANGE  IS  ATTEMPTED  WITH  ** 
10360  REM  »»  ASSIGNMENTS  OF  EQUAL  PRIORITY.  *» 
10370  REM  **  C.  AS  A  LAST  RESORT,  ONE  FOR  ONE  EXCHANGES  ARE  ** 
10380  REM  *»  ATTEMPTED  FOR  INCREMENTALLY  HIGHER  PRIORITIES.  #» 
10390  REM  **  ** 
10400  REM  *»*»»*»»*»*********#»##**###***»»*»»***»*«**»»»*»###**»»*****»**»#*»* 
10410  REM  **  »# 
10420  REM  »*  MAJOR  VARIABLES:  #» 
10430  REM  »»  #» 
10440  REM  »*  ALOT (27,4, 11) :  ARRAY  CONTAINING  ALLOCATIONS  WHICH  REPRESENT  *» 
1 0450  REM  »»  THE  TARGET  BALANCED  CHARACTERISTICS.  ** 
10460  REM  **  »« 
104^0  REM  *»  ST AT ( 27, 4 , 11) :  ARRAY  TO  GATHER  STATISTICS  ON  ASSIGNMENTS.  ** 
10480  REM  **  «i 


10490  REM  *»  ASS1GNU4,  13.5)  :  ARRAY  CONTAINING  A  SUBSET  OF  STUDENT  INFO  »» 
10500  REM  *«  AFTER  AN  ASSIGNMENT  IN  MADE.  ** 
10510  REM  *»  »» 
10520  REM  **  CHAR(27) :  ARRAY  WHICH  CONTAINS  THE  CHARACTERISTICS  FOR  THE  ** 
10530  REM  »*  STUDENT  CURRENTLY  BEING  CONSIDERED.  ** 
10540  REM  »«  ** 
10550  REM  »*  SEMI (12):  ARRAY  MAINTAINING  CONSTRAINT  INFORMATION  FOR  »* 
10560  REM  **  ATTEMPTS  TO  ASSIGN  STUDENT  TO  SEMINARS.  ** 
10570  REM  »*  •« 
10580  REM  »*  RECNUM(575):  ARRAY  INDICATING  WHICH  RECORDS  HAVE/HAVEN’T  ** 
10590  REM  **  BEEN  ASSIGNED  PREVIOUSLY.  »* 
10600  REM  »*  *# 
10610  REM  *»  MS(3):  ARRAY  INDICATING  MISSING  SEMINARS  IN  A  SQUADRON.  *» 
10620  REM  «*  «» 
10630  REM  **  SQS (4,7) :  ARRAY  CONTAINING  SCHOOL/SQUADRON  PARAMETERS.  ** 
10640  REM  **  o 
10650  REM  *»  SL(4):  ARRAY  USED  TO  TRACK  SL  ASSIGNMENTS.  ** 
10660  REM  **  #* 
10670  REM  **  ASL(4):  ARRAY  USED  TO  TRACK  ASL  ASSIGNMENTS.  ** 
10680  REM  ««  ** 
10690  REM  **  STATS (27) :  ARRAY  CONTAINING  RULE  ALPHA  DESCRIPTORS.  »* 
10700  REM  *»  *# 
10710  REM  **  RULE$ (27) :  ARRAY  CONTAINING  RULE  PRIORITIES.  »* 
10720  REM  *»  ** 
10730  REM 

10740  REM  ««  t» 
10750  REM  **  STORAGE  REQUIREMENTS:  *» 
10760  REM  **  #» 


10770  REM 

10780  DIM  SQ$(4, 7) ,  STATC27, 4,11),  RULE$(27),  ASS  I GN ( 44 . 13, 5 ) ,  MS(3) 


10790  DIM  TEMPIN$(36) ,  STAT$(27),  AL0TI27, 4, 1 1 ) ,  SL(4),  ASL(4) 

10800  DIM  CHAR (27),  SEMI (12),  RECNUM<575) 

10810  REM 

10820  REM  **  •* 

10830  REM  ***#«*****###*»««t»*»**»#»«*»***#*«*#*#»***»**»##**##ii***«#«*#»»«**«# 

10840  REM  »»  »« 

10850  REM  »*  INPUT/OUTPUT:  ** 

10860  REM  **  ** 

10870  REM  •» 

10830  REM  FIELD  #2,  27  AS  SNAME*,  4  AS  STN$,  1  AS  ASQ*,  2  AS  MIX1$,  «» 

10890  REM  2  AS  MIX2$,  2  AS  MIX3I,  2  AS  MIXXi,  1  AS  USAF* ,  »* 

10900  REM  1  AS  NOED*.  1  AS  HORG$,  1  AS  PILOTS,  1  AS  NAVS,  ** 

10910  REM  1  AS  SINGS,  1  AS  AFAS,  1  AS  ARMYS,  1  AS  RESTS,  ** 

10920  REM  1  AS  RACES,  1  AS  SLXS,  1  AS  ASLXS,  1  AS  PRIORS  »» 

10930  REM  ** 

10940  REM  FIELD  #3,  1  AS  TOPSS,  1  AS  SOPS,  1  AS  PPBSS,  1  AS  ACQLOGS ,  »» 

10950  REM  1  AS  SPAACES,  1  AS  TBD1S,  1  AS  TBD2S ,  1  AS  TBD3S ,  ** 

10960  REM  1  AS  TBD4S ,  1  AS  TBD5S,  1  AS  SLS,  1  AS  ASLS,  1  AS  SOSS,  ** 

10970  REM  1  AS  ARIS,  1  AS  SROS,  1  AS  CCS,  1  AS  IOS,  1  AS  FEMS,  *» 
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10980  REM  1  AS  RNK* ,  1  AS  NOL I NE*  »* 

10990  REM  »* 

1 1 000  REM 

11010  REM  *»  i» 

11020  REM  **  PROCEDURE:  *» 

11030  REM  **  «» 

11040  REM 

11050  SCREEN  0, 1 

11060  COLOR  2  0, 1 

11070  OPEN  "0",  #1,  "ERROR. SMS":  PRINT  #1.  "SMSS  MIXER  PROGRAM  ERROR":CLOSE 
11080  DELTA  =  +1 

11090  GOSUB  13070  : REM  »»  RETRIEVE  SCHOOL  DATA  »* 

11100  CLS :  LN  =  3 

11110  LOCATE  2.18:  PRINT  "TURN  THE  TRACE  OUTPUT  OFF  AT  TERMINAL?  (Y/N)  "; 

11120  INPUT  "",  CH$ :  LOCATE  LN. 18 

11130  IF  CH*  =  "Y"  OR  CH*  =  "y"  THEN  TRONS  =  0:  TRONS*  =  "OFF":  GOTO  11200 

11140  IF  CH$  =  "N"  OR  CH*  =  "n"  THEN  TRONS  =  1:  TRONS*  =  "ON":  GOTO  11200 

11150  IF  CH$  =  "D"  OR  CH*  =  "d"  THEN  TRONS  =  2:  TRONS*  =  "ON":  GOTO  11200 

11160  LN  =  LN  +  1 

11170  IF  LN  =  25  THEN  GOTO  11100 

11180  PRINT  "  INCORRECT  CHOICE  -  TRY  AGAIN?  "; 

11190  GOTO  11120 

11200  CLS:  LOCATE  2,32:  PRINT  "MIX  ";MIX;"  RULES"; 

11210  LOCATE  4.21:  PRINT  "PROCESSING  MIXER  INPUT  WITH  TRACE  ";  TRONS*:PRINT 

11220  FUR  I  =  1  TO  27:  INPUT  #1,  RULE*(I):  NEXT  I  : REM  »*  INIT  RULES  *» 

11230  CLOSE  #1 


11240 

GO.S'JB  12850 

:REM 

## 

INITIALIZE 

RULE  DESCRIPTORS 

*» 

11250 

GOSUB  13770 

:REM 

#* 

INITIALIZE 

STATISTICS 

## 

11260 

IOMODE*  =  "I": 

GOSUB 

12210 

:  REM 

#« 

PROCESS  INPUT  DATA 

#  # 

11270 

IOMODE*  =  "0": 

GOSUB 

13980 

:REM 

#  ft 

INITIALIZE 

RANDOM  «  GENERATOR 

*  * 

11280  OPEN  "0",  #1,  "MIXERLOG.DAT" 

11290  IF  MIX  =  1  THEN  GOSUB  19900  : REM  »*  ALLOC  SQ  SLOTS  ** 

11300  GOSUB  14100  : REM  **  ALLOC  SEM  SLOTS  ** 

11310  CLS:  LOCATE  2,30:  PRINT  "SMSS  MIXING  ROUTINE":  PRINT 
11320  PRIOR  =  9 

11330  GOSUB  16230  ; REM  *»  ASGN  SL/ASL  »* 

11340  FOR  PRIOR  =  9  TO  1  STEP  -1 

11350  FOR  INDEX  =  3  TO  27 

11360  IF  VAL(RULE*( INDEX) )  <>  PRIOR  THEN  GOTO  11410 

11370  IF  PRIOR  =  9  AND  INDEX  =  22  THEN  GOTO  11410 

11380  IF  PRIOR  =  9  AND  INDEX  =  19  THEN  GOTO  11410 

11390  IR  =  INDEX:  RL  =  INDEX:  RL*  =  STATKIR) 

11400  GOSUB  18700 

11410  NEXT  INDEX 

11420  NEXT  PRIOR 

11430  IR  =  0:  INDEX  =  0:  RL  =  0:  PRIOR  =  0:  RL*  =  "ALL  OTHER":  STAT*(0)=RL* 

11440  GOSUB  18700  : REM  •»  PROCESS  REST  «* 

11450  CLOSE  »1:  GOSUB  20170  : REM  *»  OUTPUT  RSLTS  ** 

11460  OPEN  "I",  (tl,  "MIXERLOG.DAT"  : REM  ««  FINISHED  ** 


80 


11470 
11480 
11490 
11500 
11510 
11520 
11530 
11540 
11550 
11560 
11570 
11580 
11590 
11600 
11610 
11620 
11630 
11640 
11650 
11660 
11670 
11680 
11690 
11700 
11710 
11720 
11730 
11740 
11750 
11760 
11770 
11780 
11790 
11800 
11810 
11820 
11830 
1 1840 
11850 
11860 
11870 
11880 
11890 
11900 
11910 
11920 
11930 
11940 
11950 


FOR  !  =  1  TO  999 

IF  EOF ( 1 )  GOTO  11510 
INPUT  #1,  TMP* :  LPRINT  TMP$ 

NEXT  I 

CLOSE:  GOSUB  11610  : REM  **  OUTPUT  STATS  ** 

CLOSE:  KILL  "ERROR. SMS" 

END 

REM 

REM  »*  ## 

REM  *»  #* 

REM  **  SUBROUTINE  TO  OUTPUT  MIXER  STATISTICS  *« 

REM  *»  ** 

REM 


LPRINT:  LPRINT:  LPRINT:  LPRINT 
STAT$ (0)  =  "SEMINAR  ASSIGNMENTS" 

FOR  I  =  0  TO  27 

IF  I  =  1  OR  I  =  2  THEN  GOTO  11710 

LPRINT  "»  STATISTICS  ON  ";  STAT$(I);  "  PR1  =  ";  RULE*  C I ) 
FOR  J  =  1  TO  4 

LPRINT  "SO:";  J;  "  =>  "; 

FOR  K  =  1  TO  11:  LPRINT  STAT ( I , J , K) ; :  NEXT  K 
LPRINT  "  " 

NEXT  J:  LPRINT  "  " 

NEXT  I 

LPRINT  "*  ASSIGNMENT  ARRAY:  » 

FOR  I  *  1  TO  44 

IF  I  >  11  THEN  FS  =  12  ELSE  FS  =  1 

IF  I  >22  THEN  FS  =  23 

IF  I  >  33  THEN  FS  =  34 

LPRINT  "SEM:";  I;  "  MIX1  STNTS="; 

FOR  J  =  1  TO  11:  CHAR < J )  =  0:  NEXT  J 
FOR  J  =  1  TO  13 

IF  ASSIGNS  I, J, 1)  =  0  GOTO  11820 

CHAR ( ASS 1GN C I , J , 1 > - FS  + 1 )  =  CHAR (ASS I GN( I , J , 1 ) -FS+ 1 )  ♦  1 
LPRINT  ASS  I GN ( I , J , 1 > ; 

NEXT  J 

TEMP  =  0 

FOR  J  =  1  TO  11 

IF  TEMP  <  CHAR ( J )  THEN  TEMP  =  CHAR(J) 

NEXT  J 

LPRINT  "  MAX#" ;  TEMP 

LPRINT  "SEM:";  I;  "  MIX2  STNTS=": 

FOR  J  =  1  TO  11:  CHAR ( J )  =  0:  NEXT  J 
FOR  J  =  1  TO  13 

IF  ASS  I GN ( I , J . 2 )  =  0  GOTO  11940 

CHAR (ASSIGN(I,J,2)-FS+1)  =  CHAR< ASS  I GN( I , J , 2 ) -FSU )  +  1 
LPRINT  ASS  1 GN ( I , J , 2 ) ; 

NEXT  J 
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11960  TEMP  =  0 

11970  FOR  J  =  1  TO  11 

11980  IF  TEMP  <  CHAR ( J )  THEN  TEMP  =  CHAR(J) 

11990  NEXT  J 

12000  LPR1NT  n  MAX#" ;  TEMP 

12010  LPR1NT  "SEM:";  1;  "  RULE#* 

12020  FOR  J  =  1  TO  13 

12030  LPRINT  ASSIGN( I , J , 5) ; 

12040  NEXT  J 

12050  LPRINT  "  " 

12060  LPRINT  "SEM:";  I;  "  RECORD#*  "; 

12070  FOR  J  =  1  TO  13 

12080  LPRINT  ASS  I GN ( I , J , 0 ) ; 

12090  NEXT  J 

12100  LPRINT  "  " 

12110  LPRINT  "  " 

12120  NEXT  I 

12130  RETURN 

12140  REM 

12150  REM  **  »* 

12160  REM  ****»**»*#*#*)(***#****»**#*»**#»*»«#«***«*»»******#***»»***##*«*#«*#« 

12170  REM  ##  ** 

12180  REM  **  SUBROUTINE  TO  PROCESS  INPUT  DATA  «* 

12 190  REM  »*  »* 

12200  REM 

12210  OPEN  "I",  #1,  "STU.AS C" 

12220  IF  MED  I  AS  <>  "1"  THEN  GOTO  12260 

12230  OPEN  "R",  #2,  "B : STDNT1 . DAT" 

12240  OPEN  "R",  #3,  "B : STDNT2. DAT" 

12250  GOTO  12280 

12260  OPEN  "R",  #2,  "STDNT1.DAT" 

12270  OPEN  "R",  #3,  "STDNT2.DAT" 

12280  FIELD  #2,  27  AS  SNAME$,4  AS  STN*, 1  AS  ASQ*.2  AS  M1X1*,2  AS  MIX2*,2  AS 
MIX3S.2  AS  MIXXi.l  AS  USAF*,1  AS  N0ED*,1  AS  H0RG$,1  AS  PILOT*, 1  AS  NAV$, 1  AS 
S I NG$ , 1  AS  AFAt.l  AS  ARMY$ , 1  AS  REST*,1  AS  RACE*,1  AS  SLX*,1  AS  ASLXi.l  AS 
PRIOR* 

12290  FIELD  #3,  1  AS  TOPS*, 1  AS  S0PS*,1  AS  PPBS*,1  AS  ACQL0G*,1  AS 
SPAACE* , 1  AS  TBD1 * , 1  AS  TBD2*,1  AS  TBD3*,1  AS  TBD4*,1  AS  TBD5*,1  AS  SL*,1  AS 
ASLt.l  AS  S0S*,1  AS  ARI*,1  AS  SR0*,1  AS  CC*. 1  AS  10*, 1  AS  FEM*,1  AS  RNK*,1  AS 
NOLINE* 

12300  SI  =  0:  KO  =  1:  PRINT:  PRINT  "  READING  "; 

12310  FOR  KS  =  1  TO  575 

12320  IF  KS/ 10  >=  KO  THEN  PRINT  KO  =  KO  +  1 

12330  STDNT  =  SI 

12340  FOR  J  =  1  TO  36 

12350  IF  EOF  (1)  THEN  GOTO  12680 

12360  INPUT  #1.  TEMP  I N* ( J ) 

12370  NEXT  J 

12380  LSET  SNAME*  *  TEMPI N*(l>:  LSET  10*  =  TEMP  IN*  (21) 


12390  LSET  ASQ*  =  TEMP!N*(2):  LSET  USAF*  =  TEMPIN*(22) 

12400  LSET  M I XI  $  =  TEMP  I N* ( 3) :  LSET  NOED*  =  TEMPIN*(23) 

12410  LSET  MIX2*  =  TEMP  IN* (4):  LSET  HORG$  =  TEMP  IN* (24) 

12420  LSET  MIX3$  =  TEMP  IN* (5):  LSET  PILOT*  =  TEMP  IN* (25) 

12430  LSET  STN*  =  TEMPIN*(6):  LSET  NAV*  =  TEMPIN*(26> 

12440  LSET  SOS*  =  TEMP!N*(7):  LSET  SING*  =  TEMP!N*(27) 

12450  LSET  AR I  *  =  TEMPIN*(8):  LSET  AFA*  =  TEMPIN*(28) 

12460  LSET  CC*  =  TEMPIN*(9):  LSET  ARMY*  =  TEMP1N*(29) 

12470  LSET  SRO*  =  TEMPIN*(10):  LSET  REST*  =  TEMPIN*(30) 

12480  LSET  SL*  =  TEMP  I N*  < 1 1 ) :  LSET  RACE*  =  TEMP  I N* ( 31 ) 

12490  LSET  ASL*  =  TEMPIN*(12):  LSET  FEM*  =  TEMPIN*(32) 

12500  LSET  PPBS*  =  TEMPIN*(13):  LSET  RNK*  =  TEMPIN*(33) 

12510  LSET  ACQLOG*  =  TEMPIN*(14):  LSET  NOLINE*  =  TEMPIN*(34) 

12520  LSET  SPAACE*  =  TEMPIN*(15):  LSET  SOPS*  =  TEMPIN*<35> 

12530  LSET  TBD1*  =  TEMPIN*(16):  LSET  TOPS*  =  TEMPIN*(36) 

12540  LSET  TBD2*  =  TEMPIN*(17):  LSET  SLX*  =  "0" 

12550  LSET  TBD3*  =  TEMP  IN* (18):  LSET  ASLX*  =  "0" 

12560  LSET  TBD4*  =  TEMPIN*(19):  LSET  MIXX*  =  "0" 

12570  LSET  TBD5*  =  TEMPIN*(20):  LSET  PRIOR*  =  "0" 

12580  IF  ( I 0*="Y"  OR  IO*="y")  AND  RULE* (22) ="0"  AND  MIX=3  GOTO  12670 

12590  JJ  =  0:  KK  =  0:  GOSUB  13270  : REM  *«  RECORD  SCHOOL  STATS  *» 

12600  IF  ASQ*  =  "  "  GOTO  12650 

12610  FOR  J  =  1  TO  4  : REM  **  POST  SQUADRON  STATS  ** 

12620  IF  VAL(ASQ*)  <>  VAL ( SQ* ( J , 1 ) )  GOTO  12640 

12630  JJ  =  J:  KK  =  0:  GOSUB  13270:  GOTO  12650 

12640  NEXT  J 

12650  SI  =  SI  +  1 

12660  PUT  #2, SI:  PUT  #3. SI 

12670  NEXT  KS 

12680  STDNT  =  STAT(0f0,0):  CLS 

12690  LOCATE  2,25:  PRINT  "PROCESSED" ; KS- 1 ; "STUDENTS  INTO  MIXER" 

12700  LOCATE  3,20:  PRINT  STDNT;  "STUDENTS  KEPT  FOR  FURTHER  PROCESSING" 

12710  PRINT 

12720  FOR  1  =  3  TO  27 

12730  IF  STAT (1,0,0)  =  0  THEN  GOTO  12750 

12740  PRINT  "  THERE  WERE  STAT( 1,0,0);  "  ";  STAT*(I);  "  STUDENTS" 

12750  NEXT  I 

12760  PRINT  "  *»»*  ALL  OTHER  CHARACTERISTICS  WERE  NOT  REPRESENTED" 

12770  CLOSE  #1:  RETURN 

12780  REM 

12790  REM  **  ** 

1 2800  REM 

12810  REM  »»  «« 

12820  REM  **  SUBROUTINE  TO  INITIALIZE  RULE  DESCRIPTIONS  ** 

12830  REM  »»  »* 

12840  REM 


12850 

STAT* ( 1 ) 

=  "SEMINAR  CHANGE": 

STAT* (2) 

=  "BUDDY 

RULE” 

12860 

STAT* ( 3 ) 

=  "SPACE  SKILL": 

STAT* (4 ) 

=  "PPBS 

SKILL" 

12870 

STAT* (5) 

=  "TAC  OPS  SKILL": 

STAT* (6) 

=  "STRAT 

OPS  SKILL" 

12880 

STAT*(7) 

= 

"ACQ/LOG  SKILL": 

STAT* 

(8) 

=  "PILOT" 

12890 

STAT$ (9) 

= 

"NAVIGATOR": 

STAT* 

(10) 

=  "SINGLE/UNACCOMP" 

12900 

STAT* (11) 

= 

"USAFA  GRADUATE": 

STAT* 

(12) 

=  "ARMY" 

12910 

STAT* (13) 

= 

"RES/NG/USN/USMC/C IV": 

STAT* 

( 14) 

=  "MINORITY" 

12920 

STAT* ( 15 ) 

= 

"FEMALE": 

STAT* 

( 16) 

=  "CAPTAIN" 

12930 

STAT*( 17) 

= 

"NON  LINE": 

STAT* 

( 18) 

=  "SR  ORG  EXPERIENCE" 

12940 

STAT*( 19) 

= 

"SOS": 

STAT* 

(20) 

=  "NON  MASTER  DEGREE" 

12950 

STAT* (21 ) 

= 

"USAF" : 

STAT* 

(22) 

=  "10" 

12960 

STAT* ( 23) 

= 

"UNLABELED": 

STAT* 

(24) 

=  "UNLABELED" 

12970 

STAT* (25) 

= 

"UNLABELED": 

STAT* 

(26) 

=  "UNLABELED" 

12980 

STAT* (27) 

= 

"UNLABELED" 

12990 

RETURN 

13000 

REM 

13010 

REM 

*  * 

« i 

13020 

REM 

*XXX##*X#*XK«XX*XXXX*X#XX#XX**#*XX#X**XX 

*  *  *  * 

****»***tt**ti****»»*tt«ii»*# 

13030 

REM 

«  X 

* « 

13040 

REM 

**  SUBROUTINE  TO  RETRIEVE  SCHOOL 

DATA 

» * 

13050 

REM 

*  * 

»  k 

1 3060 

REM 

13070 

OPEN  "I", 

#1, 

"ENV. ASC" 

13080 

INPUT  #1, 

MIX*,  MEDIA*,  PREV* 

13090 

FOR  I  =  1 

TO 

4 

13100 

ADJ  = 

0 

13110 

INPUT 

#1 

,  SQ* ( 1 , 2 ) , SQ* ( 1 , 3 ) , SQ* 

(1.4), 

SQ*  ( 

1,5). SQ* ( 1,6) 

13120 

SQ$(  I 

,D 

=  STR* (  I  ) 

13130 

IF  VAL ( SQ* (1,4))  <>  0  THEN  ADJ 

=  ADJ 

♦  1 

13140 

IF  VAL(SQ*( 1 ,5) )  <>  0  THEN  ADJ 

=  ADJ 

+  1 

13150 

IF  VAL ( S 

Q* ( I , 6 ) )  <>  0  THEN  ADJ 

=  ADJ 

♦  1 

13160 

SQ* ( 1,7) 

=  STR*(VAL(SQ*( I ,3) ) 

-  VAL  ( 

SQ*  ( 

1,2))  -  ADJ  +  1) 

13170 

NEXT  I 

13180 

MIX  =  VAL (MIX*) 

13190  RETURN 

13200  REM 

13210  REM  *»  *# 

13220  REM  **##»***«***#*#*tHHHH»**#***«»*tHH»**#*#******IHHf*»»*«tHMHHHHtlHt»*ll**t*# 

13230  REM  *»  «» 

13240  REM  *»  SUBROUTINE  TO  UPDATE  STATISTICS  ** 

13250  REM  **  «» 

13260  REM 

13270  IF  I OMODE*  =  "0"  THEN  GOTO  13290 

13280  IF  JJ  =  0  THEN  STAT(0t0,0)  =  STAT(0,0,0)  +  DELTA 

13290  IF  KK  <>  0  THEN  STAT(0, JJ , KK)  =  STAT ( 0, J J , KK )  +  DELTA 

13300  IF  JJ  <>  0  THEN  STAT(0,JJ,0)  =  STAT(0,JJ,0)  +  DELTA 

13310  GOSUB  13440 

13320  FOR  I  1  =  3  TO  27 

13330  IF  CHAR(II)  =  0  THEN  GOTO  13350 

13340  STAT ( I  I , J  J , KK )  =  STAT ( I  I , J J , KK )  ♦  DELTA 

13350  NEXT  II 

13360  RETURN 


13370 
13330 
13390 
1340C 
13410 
13420 
13430 
13440 
13450 
13460 
13470 
13480 
13490 
13500 
13510 
13520 
13530 
13540 
13550 
13560 
13570 
13580 
13590 
13600 
13610 
13620 
13630 
13640 
13650 
13660 
13670 
13680 
13690 
13700 
13710 
13720 
13730 
13740 
13750 
13760 
13770 
13780 
13790 
13800 
13310 
13820 
138  30 
13840 
1385  0 


REM 

REM 

REM 

REM 

REM 

REM 

REM 


REM 

REM 

REM 

REM 

REM 

REM 

REM 


*  * 


*  « 


XXXXXXXXXXXXXXXXXXXXXXXXIXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXIXIXXXXXX 


*  * 

**  SUBROUTINE  TO  INITIALIZE  CHARACTERISTICS  ARRAY 
x  x 


X  X 
X  X 
X  X 


IF 

SPAACE* 

= 

♦*  y* 

IF 

PPBS* 

*♦  yn 

IF 

TOPS* 

= 

w  y»t 

IF 

SOPS* 

= 

«  y  tt 

IF 

ACQLOG* 

= 

nytt 

IF 

PILOT* 

= 

«  Yn 

IF 

NAV* 

= 

«yi» 

IF 

SING* 

= 

m  y  •* 

IF 

AFA* 

= 

tt  Y  tt 

IF 

ARMY* 

= 

ti  ytt 

IF 

REST* 

= 

tt  Y« 

IF 

RACE* 

= 

tt  ytt 

IF 

FEM* 

= 

tt  ytt 

IF 

RNK* 

tt  y  tt 

IF 

NOLINE* 

= 

tt  ytf 

IF 

HORG* 

= 

tt  ytt 

IF 

SOS* 

= 

tt  ytt 

IF 

NOED* 

= 

tt  ytt 

IF 

USAF* 

= 

tt  ytt 

IF 

10* 

= 

tty  tt 

IF 

TBD1* 

= 

tt  y  tt 

IF 

TBD2* 

tt  y  it 

IF 

TBD3* 

= 

tt  y  tt 

IF 

TBD4* 

= 

tt  y  tt 

IF 

TBD5* 

= 

*  y  tt 

RETURN 

OR  SPAACE*  =  "y  " 
OR  PPBS*  =  "y" 
OR  TOPS*  =  "y" 
OR  SOPS*  =  "y" 
OR  ACQLOG*  =  "y" 
OR  PILOT*  =  ny" 
OR  NAV*  =  "y" 
OR  SING*  =  "y" 
OR  AFA*  =  "y" 
OR  ARMY*  =  ny" 
OR  REST*  =  "y" 
OR  RACE*  =  "y" 
OR  FEM*  =  "y" 
OR  RNK*  =  "y" 
OR  NOLINE*  =  "y" 
OR  HORG*  =  "y" 
OR  SOS*  =  »y* 
OR  NOED*  =  "y" 
OR  USAF*  =  "y” 
OR  10*  =  "y" 
OR  TBD1 *  =  "y" 
OR  TBD2*  =  "y" 
OR  TBD3*  =  "y" 
OR  TBD4*  =  "y" 
OR  TBD5*  =  By" 


THEN 

CHAR (3) 

= 

1 

THEN 

CHAR (4) 

= 

1 

THEN 

CHAR (5) 

= 

1 

THEN 

CHAR (6) 

= 

1 

THEN 

CHAR (7) 

= 

1 

THEN 

CHAR(8> 

- 

1 

THEN 

CHAR ( 9 ) 

1 

THEN 

CHAR ( 10) 

= 

1 

THEN 

CHAR (11) 

= 

1 

THEN 

CHAR ( 12 ) 

= 

1 

THEN 

CHAR (13) 

= 

1 

THEN 

CHAR( 14) 

= 

1 

THEN 

CHAR ( 15 ) 

= 

1 

THEN 

CHAR ( 16 ) 

= 

1 

THEN 

CHAR (17) 

= 

1 

THEN 

CHARU8) 

= 

1 

THEN 

CHAR( 19) 

= 

1 

THEN 

CHAR(20) 

= 

1 

THEN 

CHAR ( 21 ) 

= 

1 

THEN 

CHAR(22) 

= 

1 

THEN 

CHAR (23) 

= 

1 

THEN 

CHAR(24) 

= 

1 

THEN 

CHAR ( 25 ) 

= 

1 

THEN 

CHAR(26) 

= 

1 

THEN 

CHAR ( 27 ) 

= 

1 

ELSE  CHAR ( 3 )  = 

ELSE  CHAR ( 4  )  = 

ELSE  CHAR ( 5 )  = 

ELSE  CHAR ( 6 )  =  0 

ELSE  CHAR ( 7 )  =  0 

ELSE  CHAR ( 8 )  =  0 

ELSE  CHAR ( 9 )  =  0 

ELSE  CHAR(IO)  =  0 
ELSE  CHAR (11)  =  0 
ELSE  CHAR( 12)  =  0 
ELSE  CHAR( 13)  =  0 
ELSE  CHARC14)  =  0 
ELSE  CHAR115)  =  0 
ELSE  CHAR ( 16 )  =  0 
ELSE  CHAR (17)  =  0 
ELSE  CHAR ( 18 )  =  0 
ELSE  CHAR( 19)  =  0 
ELSE  CHAR (20)  =  0 
ELSE  CHAR (21)  =  0 
ELSE  CHAR ( 22 )  =  0 
ELSE  CHAR (23)  =  0 
ELSE  CHAR ( 24 )  =  0 
ELSE  CHAR ( 25 )  =  0 
ELSE  CHAR ( 26 )  =  0 
ELSE  CHAR ( 27 )  =  0 


XX  XX 

XXXXXXXXfXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


XX  XX 

x  x  SUBROUTINE  TO  INITIALIZE/OUTPUT  STATS  &  SEMINAR  ASSIGNMENTS  «* 


1  X 


X  X 


PRINT  "  INITIALIZING 
FOR  I  =  0  TO  27 
PRINT  M; 

FOR  J  =  0  TO  4 

FOR  K  =  0  TO  11:  STATU. J,K)  =  0:  NEXT  K 
NEXT  J 
NEXT  1 

FOR  J  -  0  TO  13 
PRINT 
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o  o  o 


13860  FOR  1  =  0  TO  44 

13870  FOR  K  =  0  TO  5:  ASS  I GN ( I , J , K )  =  0:  NEXT  K 

13880  NEXT  I 

13890  NEXT  J 

13900  RETURN 

13910  REM 

13920  REM  *# 

13930  REM  ***********tnHt********in(»*»********inHHt*********»»*#**»»t***#f#»*** 

13940  REM  ** 

13950  REM  *»  SUBROUTINE  TO  INITIALIZE  RANDOM  NUMBER  GENERATOR 

13960  REM  «  * 

13970  REM 

13980  XT  =  TIME:  XT  =  XT  -  ( INT(XT/100) *100) 

13990  FOR  I  =  1  TO  XT:  X  =  RND :  NEXT  I 

14000  X  =  X  *  10000:  RANDOMIZE  X 

14010  STDNT  =  STAT (0,0,0) 

14020  RETURN 

14030  REM 
14040  REM  ** 

14050  REM  »*****x***##***#**##tHt***#**it***»iHnnnt*#**i*************»********** 

14060  REM  ** 

14070  REM  **  SUBROUTINE  TO  RANDOMLY  ALLOCATE  CHARACTERISTICS  TO  SEMINARS 

14080  REM  »* 

14090  REM 


14100 

PRINT:  PRINT  "  ALLOCATING  SLOTS  TO  SEMINARS  n; 

14110 

FOR  J  =  1  TO  4 

14120 

GOSUB  14870:  KO  =  1 

14130 

FOR  I  =  3  TO  27 

14140 

IF  1/4  >  KO  THEN  PRINT  KO  =  KO  +  1 

14150 

IF  MIX  =  1  THEN  STATd.J.O)  =  ALOTd.J.O) 

14160 

ALOT  (1,0,0)  =  STATd.O.O) 

14170 

IF  STATd.J.O)  =  0  THEN  GOTO  14390 

14130 

TA  =  STATd.J.O)  /  NS  : REM  **  TEMPORARY 

ALLOCATION 

14190 

ALOTd.J.O)  =  STATd.J.O) 

14200 

IF  TA  <  1  THEN  TA  =  0:  GOTO  14270 

14210 

FOR  K  =  1  TO  LS  -  FS  +  1 

14220 

IF  K  =  MSU)  -  FS  M  THEN  GOTO  14260 

14230 

IF  K  =  MS (2 )  -  FS  +  1  THEN  GOTO  14260 

14240 

IF  K  =  MS ( 3 )  -  FS  +  1  THEN  GOTO  14260 

14250 

ALOT(I.J.K)  =  INT(TA)  : REM  **  GIVE 

SEMINAR 

SHARE 

14260 

NEXT  K 

14270 

IF  STATd.J.O)  -  (NS  *  INT(TA)  )  =  0  THEN  GOTO 

14390 

14280 

ADJ  =  0 

14290 

FOR  K  =  1  TO  STAT( I , J , 0 ) - (NS  »  INT(TA) )  : REM 

ft  * 

GIVE 

REST 

14300 

ADJ  =  ADJ  +  1 

14310 

IF  ADJ  >  11  THEN  ADJ  =  1 

14320 

IF  ADJ  =  MS ( 1 )  -  FS  ♦  1  THEN  GOTO  14300 

14330 

IF  ADJ  =  MS ( 2 )  -  FS  +  1  THEN  GOTO  14300 

14340 

IF  ADJ  =  MS ( 3 )  -  FS  +  1  THEN  GOTO  14300 

14350 

ALOT ( I , J , ADJ )  =  ALOT ( I , J , ADJ ) 

♦  1 

14360 

ALOT  <  0,  J , ADJ )  =  AL0T(0, J , ADJ ) 

+  1 

14370 

NEXT  K 

14380 

IF  MIX  =  1  THEN  STAT ( l , J , 0 )  =  0 

14390 

NEXT  I 

14400 

ALOT (0, J , 0)  =  STAT (0, J , 0) 

14410 

TA  =  25:  ADJ  =  0 

14420 

FOR  K  =  1  TO  NS 

14430 

ADJ  =  ADJ  +  1 

14440 

IF  ADJ  =  MS(1)  -  FS  +  1  THEN  GOTO 

14430 

14450 

IF  ADJ  =  MS < 2 )  -  FS  +  1  THEN  GOTO 

14430 

14460 

IF  ADJ  =  MS<3)  -  FS  +  1  THEN  GOTO 

14430 

14470 

AL0T(0, J, ADJ)  =  I  NT ( ALOT ( 0 , J , 0 ) /NS ) 

1^480 

IF  TA  =  25  THEN  TA  =  ALOT(O.J.O)  - 

(AL0T(O, J, ADJ) 

14490 

IF  TA  =  0  THEN  GOTO  14520 

14500 

ALOT (0, J , ADJ )  =  ALOT ( 0, J , ADJ )  +  1 

14510 

TA  =  TA  -  1 

14520 

NEXT  K 

14530 

STAT(O.J.O)  =  0 

14540 

NEXT  J 

14550 

PRINT 

14560 

RETURN 

14570 
14580 
14590 
14600 
14610 
14620 
14630 
14640 
14650 
1 4660 
14670 
14680 
14690 
14700 
14710 
14720 
14730 
14740 
14750 
14760 
14770 
14780 
14790 
14800 
14810 
14820 
14830 


REM 

REM  **  «» 

REM  t******#****#IMl**#*IHHI*tl*##«*#**IHHHt#«»IUHHHHH»0»IHHHHtlHt*****tHHHI**#* 
REM  «*  #* 

REM  **  SUBROUTINE  TO  RANDOMLY  ASSIGN  STUDENTS  TO  TEMPORARY  SEMINARS  ** 
REM  **  #* 

REM 

RS  =  RND 

FOR  LL  =  1  TO  LS  -  FS  +  1 

IF  RS  >  LL/(LS  -  FS  +  1)  GOTO  14750 

TSEM  =  FS  +  LL  -  1:  PS  =  LL 

FOR  R  =  1  TO  3 

IF  TSEM  =  MS ( R )  THEN  GOTO  14720 
NEXT  R 
GOTO  14760 
LL  =  LL  +  1 

IF  LL  >  11  THEN  LL  =  1 
GOTO  14670 
NEXT  LL 

IF  MIX  =  1  THEN  KK  =  0  ELSE  KK  =  PS 

IF  MIX  =  1  THEN  JJ  =  PS  ELSE  JJ  =  J 

IF  TRONS  >  1  THEN  PRINT  "»  DEBUG:  J=";J;"  JJ=";JJ;"  KK  =  " ;KK; "  PS=";PS 
RETURN 

REM 

REM  *»  ** 

REM  «******»**»«IHHHHHHI**#«*IHH»*flH»»*#»***»*»»#«*«****»«*IHHHHHM»**»IMt*t»* 
REM  *»  »» 


14840  REM  *»  SUBROUTINE  TO  GET  SEMINAR  DATA  FOR  SQUADRON 


14850 

REM 

«  * 

X  X 

14860 

REM 

14870 

FS  =  VAL(SQ*(J,2) ) 

REM  **  FIRST  SEMINAR  IN  SQ 

X  X 

14880 

LS  =  VAL ( SQ$ ( J , 3 ) ) 

REM  **  LAST  SEMINAR  IN  SQ 

X  X 

14890 

MS ( 1 )  =  VAL(SQ*(J,4) ) 

REM  »*  MISSING  SEMINAR  IN  SQ 

X  X 

14900 

MS ( 2 )  =  VAL ( SQ$ ( J , 5 ) ) 

REM  **  MISSING  SEMINAR  IN  SQ 

X  X 

14910 

MS ( 3 )  =  VAL(SQ$(J,6) ) 

REM  *»  MISSING  SEMINAR  IN  SQ 

X  X 

14920 

NS  =  VAL ( SQ< ( J , 7 ) ) 

REM  **  #  SEMINARS  IN  SQ 

X  X 

14930 

TS  =  STAT ( 0, J , 0 ) 

REM  »»  TOTAL  STUDENTS  IN  SQ 

X  X 

14940 

RETURN 

14950 

REM 

14960 

REM 

it  * 

X  X 

14970 

REM 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

14980 

REM 

#  * 

XX 

14990 

REM 

«*  SUBROUTINE  TO  DETERMINE  CURRENT  SQUADRON  ASSIGNMENT 

X  X 

15000 

REM 

m  « 

X  X 

15010 

REM 

15020 

FOR  J  =  0  TO  4 

15030 

IF  VAL(ASQi)  =  VAL ( SQ*  ( J , 1 ) )  THEN 

GOSUB  14870:  GOTO  15060 

15040 

NEXT  J 

15050 

J  =  0 

15060 

JJ  =  J 

15070 

IF  TRONS  >  1  THEN  PRINT  "»  DEBUG:  FINDING  CORRECT  SQUADRON  -  J="; 

J 

15080 

RETURN 

15090 

REM 

15100 

REM 

X  X 

XX 

15110 

REM 

»****lt*lttt«lt**lt*lt*ttltltltKlttt**«IHHHHt***«*»««*««««*«IHnHf«*ltlHHHt*«««lt*»«««lt 

15120 

REM 

X  X 

XX 

15130 

REM 

*»  SUBROUTINE  TO  FIND  OFFSET  FOR  PRE-ASSIGNED  STUDENTS 

XX 

15140 

REM 

it  it 

XX 

15150 

REM 

15160 

TSEM  =  0 

15170 

IF  MIX  =  1  THEN  TSEM  =  VAL(MIX1$) 

15180 

IF  MIX  =  2  THEN  TSEM  =  VALCMIX2*) 

15190 

IF  MIX  =  3  THEN  TSEM  =  VAL1M1X3*) 

15200 

GOSUB  15290 

15210 

RETURN 

15220 

REM 

15230 

REM 

it  it 

XX 

15240 

REM 

*«ll*tt««K*lt«»«»«ltlt»*««tt«lt«««««*«K*k«*«««lt«*JtlHt*««««*«***«*«*«««tntlHI<t»« 

15250 

REM 

X  X 

X  X 

15260 

REM 

»»  SUBROUTINE  TO  CHECK  AGAINST  MISSING  SEMINARS 

X  X 

15270 

REM 

it  it 

XX 

15280 

REM 

15290 

IF  TSEM  =  0  THEN  GOTO  15370 

15300 

KK  =  TSEM  -  FS  +  1 

15310 

IF  KK  >=  0  THEN  GOTO  15340 

1 5320 


PRINT  "***  ERROR  »»*  SQUADRON  ";ASQ*;"  AND  SEMINAR  " ; TSEM ; "  MISMATCH' 
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15330 

15340 

15350 

15360 

15370 

15380 

15390 

15400 

15410 

15420 

15430 

15440 

15450 

15460 

15470 

15480 

15490 

15500 

15510 

15520 

15530 

15540 

15550 

15560 

15570 

15590 

15590 

15600 

15610 

15620 

15630 

15640 

15650 

15660 

15670 

15680 

15690 

15700 

15710 

15720 

15730 

15740 

15750 

15760 

15770 

15780 

15790 

15800 

15810 


PRINT  "  WILL  REASSIGN  TO  NEW  SEMINAR  ":  GOSUB  14560 

IF  TSEM  =  MS ( 1 )  AND  TSEM  <>  0  THEN  GOSUB  14640:  GOTO  15370 

IF  TSEM  =  MS ( 2 )  AND  TSEM  O  0  THEN  GOSUB  14640:  GOTO  15370 

IF  TSEM  =  MS ( 3 )  AND  TSEM  <>  0  THEN  GOSUB  14640 

IF  TRONS  >  1  THEN  PRINT  "*  DEBUG:  TSEM  = " ; TSEM ; "  FINDING  CURRENT  SMNRf 
RETURN 


*»*K««*«***««tttt»*««**R»ft***»*»**»»t«*»»*t«»X»»**«»ft«**«*******«<l»t*«* 
»  *  «  « 

**  SUBROUTINE  TO  CHECK  ON  PREVIOUSLY  ASSIGNED  STUDENTS  ** 


IF  SWAPFLG*  =  "Y"  GOTO  15480 
IF  SEMI (KK)  =  100  GOTO  15680 

MX1FLG  =  0:  MX2FLG  =  0:  MX3FLG*  =  "N":  SASN*  =  "Yn 
CN  =  0:  MIX1CNT  =  0:  M1X2CNT  =  0 
IF  SWITCH  =  0  THEN  SEMI (KK)  =  100 
IF  TSEM  =  VAL ( M 1 XI  * )  AND  MIX  <>  1  THEN  GOTO  15680 
IF  TSEM  =  VAL ( M I X2* )  AND  MIX  =  3  THEN  GOTO  15680 
FOR  AB  =  1  TO  ASS  I GN( TSEM, 0, 0) 

IF  MIX  <>  1  AND  ASS IGN(TSEM, AB, 1 )  =  VAL(MIX1$)  THEN  MX1FLG  =  1 
IF  MIX  =  3  AND  ASS  I GN(TSEM, AB, 2)  =  VAL(MIX2*)  THEN  MX2FLG  =  1 
IF  MX1FLG  =  0  AND  MX2FLG  =  0  THEN  GOTO  15620 

IF  MX1FLG  =  1  AND  MX2FLG  =  1  THEN  MX3FLG*  =  "Y":  GOTO  15680 

IF  SLFLAG*  =  "Y"  AND  AB  =  1  THEN  GOTO  15680 
IF  MX1FLG  =  1  THEN  MIX1CNT  =  MIX1CNT  +  1 

IF  MX2FLG  =  1  THEN  MIX2CNT  =  MIX2CNT  +  1 

CN  =  CN  +  1:  MX1FLG  =  0:  MX2FLG  =  0 
NEXT  AB 

IF  SLFLAG*  =  "Y"  GOTO  15690 

IF  CN  >=  MAXSTDNTS  THEN  GOTO  15670 

IF  SWITCH  =  0  THEN  SEMI (KK)  =  0:  SEMI (12)  =  0 

GOTO  15690 

IF  SWITCH  =  0  THEN  SEMI (KK)  ^  CN  +  300 
SASN*  =  MN" 

IF  TRONS  >  1  THEN  PRINT  "*  DEBUG:  PREV= " ; SASN$ ; SLFLAG$ ; MX3FLG$ ; CN 
RETURN 


«««»»«**lt****«*X*«*««X*X*«*«««***«tX»«K«««X«««ftX*K****«**««««X««««**« 
»  *  It  * 

**  SUBROUTINE  TO  CHECK  ALLOCATION  RESTRICTIONS  » » 


IF  SWAPFLGi  =  "Y"  GOTO  15810 

IF  SEMI (KK)  >  300  THEN  SASN*  =  "N":  GOTO  16000 
IF  SEMKKK)  =  100  THEN  SASN*  =  "N":  GOTO  16000 
SASN*  =  "Y” 


15820 
15830 
15840 
15850 
15860 
15870 
15880 
15890 
15900 
15910 
15920 
15930 
15940 
15950 
15960 
15970 
15980 
15990 
16000 
16010 
16020 
16030 
1604  0 
16050 
16060 
16070 
16080 
16090 
16100 
16110 
16120 
16130 
16140 
16150 
16160 
16170 
16180 
16190 
16200 
16210 
16220 
16230 
16240 
16250 
16260 
16270 
16280 
16290 
16300 


GOSUB  13440 
FOR  II  =  0  TO  27 

IF  (II  =  1  OR  II  =2)  THEN  GOTO  15990 
IF  II  =0  GOTO  15870 
IF  CHAR(II)  =  0  THEN  GOTO  15990 

IF  STAT( I  1 . JJ.KK)  <  ALOT( I  I, JJ.KK)  THEN  GOTO  15990 
FOR  LL  =  1  TO  11 

IF  ALOT< I  I, JJ.LL)  <  =  ALOT( I  I . JJ.KK)  THEN  GOTO  15950 
IF  STAT( 1 1 , JJ.LL)  >=  ALOT( I  I. JJ.LL)  THEN  GOTO  15950 
TEMP  =  ALOT ( I  I , JJ.KK) 

ALOTd  I.  JJ.KK)  =  ALOT(  I  I.  JJ.LL) 

ALOT ( 1  I .JJ.LL)  =  TEMP 
GOTO  15990 
NEXT  LL 

IF  SWITCH  =  0  THEN  SEMI (KK)  =  II  +  200 
IF  SWITCH  =  0  AND  11=0  THEN  SEMI (KK)  =  100 
SASN*  =  "N":  GOTO  16000 
NEXT  I  I 
RETURN 

REM 

REM  **  ** 

REM  *****«#****tt*»****»»»t«*«t»#»»#»»*«***#»»«f*«##»**«*##**IHHH(»#)Ht*##** 
REM  **  »* 

REM  *«  SUBROUTINE  TO  ASSIGN  TO  NEW  MIX  ** 

REM  *  *  *  * 

REM 

IF  TSEM  <  10  THEN  Z  =  1  ELSE  Z  =  2 
TSEM*  =  MI D$ ( STR* (TSEM) , 2, Z) 

IF  TSEM  <  10  THEN  TSEM$  =  "0" *M I D* ( TSEM* , 1,1) 

RSET  Ml XX*  =  TSEM* 

RSET  PRIOR*  =  STR* ( PRIOR) 

IF  MIX  =  1  THEN  LSET  ASQ*  =  SQ*(PS,1) 

SASN*  =  "Y" 

RETURN 


REM 

REM  **  ** 

REM  »»  *« 

REM  »*  SUBROUTINE  TO  ASSIGN  SL  S<  ASL  TO  EACH  SEMINAR  ** 

REM  **  #» 

REM 


PRINT:  PRINT  "  ASSIGNING  SL  i  ASL  (  PRIORITY  =  9  )":  PRINT 
SLFLAG*  =  "Y":  ARFLAG*  =  "N" 

SLASLF  =  0:  MAXSTDNTS  =  1 
FOR  J  =  1  TO  4 

GOSUB  14870:  SL(J)  =  NS:  ASL(J)  =  NS 
NEXT  J 

FOR  J  =  1  TO  44 

ASSIGN(J.O.O)  =  2 
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16310 

16320 

16330 

16340 

16350 

16360 

16370 

16380 

16390 

16400 

16410 

16420 

16430 

16440 

16450 

16460 

16470 

16480 

16490 

16500 

16510 

16520 

16530 

16540 

16550 

16560 

16570 

16580 

16590 

16600 

16610 

16620 

16630 

16640 

16650 

16660 

16670 

16680 

16690 

16700 

16710 

16720 

16730 

16740 

16750 

16760 

16770 

16780 

16790 


*  DEBUG:  RCRD=n ;  SI;  SNAME* 


NEXT  J 

FOR  SSI  =  1  TO  STDNT 
SI  =  SSI 
GET  #2, S I : 

IF  TRONS  > 

IF  MIX  =  1 
IF  VAL(RULE* (22) )  = 

IF  VAL ( RULE$ ( 19 ) )  = 

GOTO  16410 
LSET  MIX3*  =  M I XI $ 

GOSUB  15020 
GOSUB  14870 
GOSUB  15160 
LIS  =  0 

IF  TSEM  >  0  THEN  LIS  =  1 :  KK  =  TSEM  -  FS  +  1  : REM  xx  LOCK-IN  •« 


GET  #3. SI 
1  THEN  PRINT 
GOTO  16410 

9  AND 
9  AND 


(10*  =  "Y" 
(SOS*  =  "Y* 


OR  10*  = 
OR  SOS* 


•y")  GOTO  16400 
=  "y")  GOTO  16400 


REM 

REM 

REM 


it  * 

x  x 

X  X 


FIND 

FIND 

FIND 


CORRECT 

SEMINAR 

OFFSET 


SQUADRON  xx 
DATA  *» 

X  X 


I  OH*  =  " 

ft 

IF 

10*  =  "Y" 

THEN  I  OH*  = 

"  INTERNATIONAL  OFFICER 

IF 

10*  =  "y" 

THEN  I  OH*  = 

"  INTERNATIONAL  OFFICER 

IF 

SOS*  =  "Y 

"  THEN  I  OH*  = 

"  SOS  INSTRUCTOR 

*f 

IF 

SOS*  =  "y 

"  THEN  I  OH*  = 

"  SOS  INSTRUCTOR 

tf 

IF 

SLASLF  = 

1  GOTO  17080 

: REM  xx  DONE 

IF 

10*  =  "Y" 

OR  10*  =  "y" 

THEN  GOTO  17080 

IF 

SL*  =  "Y" 

OR  SL*  =  "y" 

THEN  GOTO  17080 

IF 

CC*  =  "Y" 

OR  CC*  =  "y" 

THEN  GOTO  17080 

IF 

SRO*  =  "Y 

"  OR  SRO*  =  " 

y"  THEN  GOTO  17080 

X  X 


IF  MIX  <  3 
IF  MIX  =  1 
IF  MIX  =  1 
IF  TRONS  > 

SSL  =  0 

FOR  I  =  0  TO  12:  SEMI (I)  =  299 


AND  (SOS*  =  "Y" 
AND  (USAF*  <>  " 
AND  (NOLINE*  = 

1  THEN  PRINT  "» 


’y")  THEN  GOTO  17080 
Y"  AND  USAF*  <>  "y")  THEN  GOTO  16800 
"Y"  OR  NOLINE*  =  "y">  THEN  GOTO  16800 
DEBUG:  SL/ASL  -  LIS*":  LIS;  SNAME* 


IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 


MS  ( 1 ) 
MS  (2) 
MS(3) 
LIS  = 
TRONS 


<>  0  THEN  SEMKMS(l)  - 
<>  0  THEN  SEMI ( MS < 2 )  - 
<>  0  THEN  SEMI (MS(3)  - 
0  THEN  GOSUB  14640 
>  1  THEN  PRINT  "»  DEBUG: 


NEXT 
FS  + 
FS  ♦ 
FS  + 


I 

1) 

1) 

1) 


=  100 
=  100 
=  100 

: REM  »*  RANDOMLY  ASSIGN  xx 
TSEM=" ;  TSEM; JJ ;KK;SSL;FS;L!S 


SEMI (KK)  =  100  AND  LIS  =  0  THEN  GOTO  16650 
SSL  =  1  GOTO  16810 
SL(JJ)  =  0  GOTO  16800 
ASS1GN(TSEM. 1,0)  >  0  GOTO  16750 
SWITCH  =  2:  GOSUB  15460 
IF  SASN*  =  "N"  GOTO  16750 
SWITCH  =  2:  GOSUB  15780 
IF  SASN*  =  "Y"  GOTO  16960 
IF  LIS  =  1  THEN  GOTO  16800 
SEMI (KK)  =  100 
FOR  I  =  1  TO  11 

IF  SEMI ( I )  *  299  GOTO  16650 
NEXT  I 


REM  *»  CHECK  CLASSMATES  xx 


:  REM 
:  REM 
:  REM 


X  X 

xx 
x  x 


CHECK  CONSTRAINTS  *» 
ASSIGN  AS  THE  SL  xx 
TRY  TO  USE  AS  ASL  xx 


: REM  xx  TRY  ANOTHER  SEMINAR  xx 
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16800 
16810 
16820 
16830 
16840 
16850 
16860 
16870 
16880 
16890 
16900 
16910 
16920 
169  30 
16940 
16950 
16960 
16970 
16980 
16990 
17000 
17010 
17020 
17030 
17040 
17050 
17060 
17070 
17080 
1 7090 
17100 
17110 
17120 
17130 
17140 
17150 
17160 
17170 
17180 
17190 
17200 
17210 
17220 
17230 
17240 
17250 
17260 
17270 
17280 


REM 

REM 

REM 

REM 

REM 

REM 

REM 


CHECK  CONSTRAINTS  ** 
ASSIGN  AS  THE  ASL  *» 


REM  **  TRY  ANOTHER  SEMINAR  ** 


SSL  =  1:  GOTO  16610 

IF  ASL*  =  "Y"  OR  ASL*  =  "y"  THEN  GOTO  16830 

IF  ASL(JJ)  <>  0  GOTO  16840  : REM  **  DONE  WITH  ASL’S?  »* 

IF  LIS  =  1  GOTO  17080  ELSE  GOTO  17120 
IF  ASS  I GN ( TSEM, 2,0)  >  0  GOTO  16900 
IF  ASSIGN(TSEM,1,0)  =  0  GOTO  16900 

SWITCH  -  2:  GOSUB  15460  : REM  **  CHECK  CLASSMATES  *» 

IF  SASN*  =  "N"  GOTO  16900 

SWITCH  =  2:  GOSUB  15780  : RFM  ** 

IF  SASN*  =  "Y"  GOTO  16960  : REM  ** 

IF  LIS  =  1  GOTO  17080 
SEMI(KK)  =  100 
FOR  I  =  1  TO  11 

IF  SEMI ( I )  =  299  GOTO  16650 
NEXT  I 
GOTO  17120 

IF  SSL  =  0  THEN  ASG*  =  "SL"  ELSE  ASG*  =  "ASL" 

IF  TRONS  =  0  THEN  GOTO  17000 
PRINT  "  ASSIGNING  " ; SNAME* ; "  #  =  ";S 
PRINT  ASG*;"  FOR  SEMINAR  * ; TSEM ; " 

GOSUB  16080:  GOSUB  17220 
IF  SSL  =  0  THEN  SL(JJ)  =  SL(JJ) 

FOR  I  =  1  TO  4 

IF  SL( I )  <>  0  GOTO  17070 
IF  ASL ( 1)00  GOTO  17070 
NEXT  1 
SLASLF  =  1 
GOTO  17120 

IF  TSEM  =  0  GOTO  17120 
IF  TRONS  >  0  THEN  PRINT 


AS 

ft 

: REM  *»  UPDATE  RECORDS  »« 
ELSE  ASL(JJ)  =  ASL(JJ)  -  1 


PRINT 
GOSUB 
NEXT  SSI 
SLFLAG*  = 
RETURN 


•1,  "*LOCK  IN* 
15020:  GOSUB  14870 

"N":  ARFLAF*  =  "N" 


:  REM 
:  REM 

"  *LOCK  IN* 
SNAME*;  "  TO  " ; 
GOSUB  16080: 


»»  GET  THE  NEXT  STUDENT  »» 
**  CHECK  FOR  LOCK-INS  ** 
SNAME*;  "  TO  " ;  TSEM; I  OH* 
TSEM;  I  OH* 

GOSUB  17390 


: REM  **  ALL  SL’S  L  ASL’S  ASSIGNED  *« 


**  #« 

*»  *« 

**  SUBROUTINE  TO  UPDATE  STUDENT  RECORDS  »* 

**  K* 


RETEMP  =  ASS IGN(VAL(MIXX*),0,0) 

IF  SSL  =  1  GOTO  17270 

LSET  SLX*  =  "Y"  : REM  »*  UPDATE  SL  »* 

ASSIGN(VAL(M1XX*),0,0)  =  0 
GOTO  17290 

LSET  ASLX*  =  "Y"  : REM  »*  UPDATE  ASL  ** 

ASSIGN(VAL(MIXX*),0,0)  *  1 


17290  GOSUB  17390 

17300  ASSIGN (VAL(MIXX$) ,0,0)  =  RETEMP 

17310  RETURN 

17320  REM 

17330  REM  **  »* 

17340  REM  ***#*»****xt«#*****»******»#****#»*#*#*iHf*#»*#**#******#*****#*»»**** 

17350  REM  *»  »* 

17360  REM  **  SUBROUTINE  TO  WRITE  OUT  STUDENT  RECORDS  ** 

17370  REM  **  *» 

17380  REM 

17390  RSET  PRIOR*  =  STRI (PRIOR) 

17400  ASSIGN(VAL(MIXX$) ,0,0)  =  ASS  I GN ( VAL ( M I XX* ) , 0, 0 )  +  1 
17410  ASSIGN (VAL (Ml  XX $), ASSIGN (VAL (MIXX*),0,0),0)  =  SI 

17420  IF  M I X  =  2  THEN  ASSIGN ( VAL ( M I XX* ) , ASS  I GN ( VAL (M I XX* ) , 0, 0) , 1)=VAL(M1X1$) 

17430  IF  M l X  =  3  THEN  ASS IGN ( VAL(M I XX* ) , ASS  I GN ( VAL( M I XX* ) , 0 , 0 ) , 1 ) = VAL (M I XI  $ ) 

17440  IF  M I X-3  THEN  ASS  I GN ( VAL ( M I XX* ) .  ASS  I GN ( VAL ( M I XX* ) .  0, 0 ) .  2 ) = VAL ( M I X2» ) 

17450  IF  M I  X  = 1  THEN  ASS  I GN ( VAL ( M I XX$ ) , ASS  I GN ( VAL ( M I XX* ) , 0, 0 ) , 1 ) = VAL ( M I XX* ) 

17460  IF  M I X  =  2  THEN  ASS  I GN ( VAL(M I XX* ) . ASS IGN ( VAL (M I XX* ) , 0, 0) . 2 ) = VAL C M I XX* ) 

17470  IF  M I X  =  3  THEN  ASS  I GN ( VAL ( M I XX* ) , ASS  I GN ( VAL ( M I XX$ ) , 0, 0 ) , 3 ) = VAL ( M I  XX* ) 

17480  ASSIGN(VAL(M1XX$),ASSIGN(VAL(MIXX$),0,0>,4)  =  PRIOR 

17490  ASS1GN(VAL(MIXX$),ASSIGN( VAL (MI  XX*), 0,0), 5)  =  IR 

17500  RECNUM (SI)  =  PRIOR  +  50 

17510  IF  PRVFLG*  =  "Y"  THEN  PREV$  =  STR$ ( MAXSTDNTS ) :  PRVFLG$  =  nN" 

17520  FSFLG*  =  "N" 

17530  PUT  #2. SI :  PUT  #3. SI 

17540  DELTA  =  ♦  1 :  GOSUB  13270 

17550  IF  TRONS  <  2  GOTO  17620 

17560  PRINT  "*  DEBUG:  " : STR$ ( S I ) ; " ,  n ; SNAME* ;M I XX* ; " .  PR  1 0R  =  " ; PR  1 0R» ; 

17570  PRINT  ",  " ; SLX$ ; ASLX$ ; " ,  " ; STR* ( ASS  I GN ( VAL ( M I XX* ) , 0, 0 ) ) ; " . 

17580  PRINT  ASSIGN(VAL(MIXX*), ASS  I GN ( VAL ( M I XX* ) , 0, 0 ) , 1) ; 

17590  PRINT  ASS  IGN ( VAL( M I XX*  > , ASS IGN ( VAL(M l XX* ) , 0, 0 ) , 2) ; 

17600  PRINT  ASSIGN(VAL(MIXX*),ASSIGN(VAL(M1XX*),0,0>,3) ; 

17610  PRINT  ASSIGN(VAL(MIXX*),ASSIGN(VAL<MIXX*),0,0',4) 

17620  RETURN 

17630  REM 


17640  REM  »*  »* 
17650  REM  ««**«»««««««««««*»*««*«*«»***«§«««»«*«««««««««**««»»«#«*«**<«««««*»«* 
17660  REM  »*  ** 
17670  REM  «*  SUBROUTINE  TO  LOCATE  ASSIGNED  SKILLS  TO  SWITCH  »* 
17680  REM  »»  »• 


17690  REM 

17700  SWTCH  =  0 
17710  FOR  SLT  =  1  TO  1 1 

17720  IF  TRONS  >  1  THEN  PRINT  "»  DEBUG:  SLT=";  SLT;  SWTCH 

17730  IF  TRONS  >  1  THEN  LPRINT  "*  DEBUG:  SLT=";  SLT;  SWTCH 

177/^0  IF  STAT(  IR,  JJ.SLT)  >  ALOT(  IR,  JJ  ,  SLT)  THEN  GOTO  18580 

17750  IF  SEMI (SLT)  <  200  OR  SEMI (SLT)  >  300  THEN  GOTO  18590 

17760  TEMPI  =  SEMI (SLT)  -  200 

17770  TSEM  =  SLT  ♦  FS  -  1 


17780 
17790 
17800 
17810 
17820 
17830 
17840 
17850 
17860 
17870 
17880 
17890 
17900 
17910 
17920 
17930 
17940 
17950 
17960 
17970 
17980 
17990 
18000 
18010 
18020 
18030 
18040 
18050 
18060 
18070 
18080 
18090 
18100 
181 10 
18120 
18130 
18140 
18150 
18160 
18170 
18180 
18190 
18200 
18210 
18220 
18230 
18240 
18250 
18260 


SWITCH  =  2:  GOSUB  15460:  SWITCH  =  0 

IF  MX3FLG*  =  "Y"  GOTO  18580 

FOR  PTR  =  ASSIGN(TSEM, 0, 0)  TO  3  STEP  -1 

IF  TRONS  >  1  THEN  PRINT  "»  DEBUG:  PTR=";  PTR;  SEMI (SLT) 

IF  TRONS  >  1  THEN  LPRINT  "«  DEBUG:  PTR=";  PTR;  SEMI (SLT) 

IF  ASSIGN(TSEM, PTR, 4)  >  PRIOR  ♦  OMEGA  THEN  GOTO  18580 
SI  =  ASS IGN (TSEM, PTR, 0 ) 

GET  #2, SI :  GET  *3, SI 
GOSUB  13440 

IF  OMEGA  <>  0  GOTO  17900 

IF  FSFLG*  =  "Y"  AND  1R  <>  0  AND  CHAR ( I R )  <>  1  GOTO  18570 

IF  FSFLG*  =  "N"  AND  CHAR(TEMPl)  <>  1  GOTO  18570 

DELTA  =  -1:  KK  =  SLT:  GOSUB  13270  :  REM  **  REMOVE  *» 

GET  #2 , SK :  GET  #3,SK 

GOSUB  13440 

IF  SWTCH  =  0  GOTO  17970 
FOR  YY  =  3  TO  27 

IF  VAHRULE*  ( YY) )  =  0  THEN  CHAR (  YY )  =  0 
NEXT  YY 

SWITCH  =  2:  KK  =  SLT 

GOSUB  15780:  SWITCH  =  0:  TEMP*  =  SNAME*:  TMP*  =  STN* 

GET  #2. SI:  GET  #3, SI 
GOSUB  13440 

DELTA  =  +1:  KK  =  SLT:  GOSUB  13270 
IF  FSFLG*  =  "Y"  GOTO  18040 
IF  SASN*  =  "N"  GOTO  18570 
IF  SWTCH  *  0  GOTO  18080 
FOR  YY  =  3  TO  27 

IF  VAL ( RULE* ( YY > )  =  0  THEN  CHAR ( YY )  =  0 
NEXT  YY 

SWAPFLG*  *  *Y" 

FOR  SMNR  =  FS  TO  LS 

IF  TRONS  >  1  THEN  PRINT  "*  DEBUG:  SMNR=";  SMNR 

IF  TRONS  >  1  THEN  LPRINT  "»  DEBUG:  SMNR=" ; SMNR ; FSFLG* ; FS 

IF  SMNR  =  TSEM  GOTO  18550 

IF  SMNR  =  MS ( 1 )  GOTO  18550 

IF  SMNR  =  MS (2)  GOTO  18550 

IF  SMNR  =  MS ( 3 )  GOTO  18550 

IF  (MIX  =  2  OR  MIX  =  3)  AND  SMNR  =  VAL ( M I X 1  * )  GOTO  18550 

IF  MIX  =  3  AND  SMNR  =  VALCMIX2*)  THEN  GOTO  18550 

XX  =  SMNR  -  FS  +  1 

SWITCH  =  2:  KK  =  XX 

GOSUB  15780:  SWITCH  =  0 

IF  TRONS  >  1  THEN  LPRINT  "»  DEBUG:  ALOC=" ; SASN* ; KK ; SNAME* 
IF  FSFLG*  =  "Y"  GOTO  18250 
IF  SASN*  =  "N"  GOTO  18550 
TSEM  =  SMNR 

SWITCH  =  2:  GOSUB  15460:  SWITCH  -  0:  TSEM  -  SLT  ♦  FS  -  1 
IF  TRONS  >  1  THEN  LPRINT  ”«  DEBUG:  PRV- " ; SASN* ; MX3FLG* ; CN 
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18270 
18280 
18290 
18300 
18310 
18320 
18330 
18340 
18350 
18360 
18370 
18380 
18390 
18400 
18410 
18420 
18430 
18440 
18450 
18460 
18470 
18480 
18490 
18500 
18510 
18520 
18530 
18540 
18550 
18560 
18570 
18580 
18590 
13600 
18610 
18620 
18630  REM 
18640  REM 
18650  REM 
18660  REM 
18670  REM 
18680  REM 
10690  REM 
18700 
18710 
18720 
18730 
18740 
18750 


IF  MX3FLG*  =  "Y"  GOTO  18550 

IF  SASN*  =  "N"  THEN  MXFLG*  =  "YB:  GOTO  18550 

IF  TRONS  =  0  GOTO  10320 

PRINT  "  «**  EXCHANGING  ***  -  TEMP* 

PRINT  "  WITH -  SNAME* 

IF  LOGFLG*  <>  "Y"  THEN  GOTO  18350 

PRINT  *1,"»»»  EXCHANGING  ***  (STU  I  **  ;TMP* ; " )  TEMP* 

PRINT  #1." .  WITH  (STU  I  ";STN*;">  SNAME* 

FOR  YY  =  PTR  TO  13 

TEMPA  =  ASS  I GN (TSEM, PTR, 5 ) 

FOR  R  =  0  TO  5 

IF  YY  =  13  THEN  ASS IGN(TSEM, 13, R)  =  0:  GOTO  18400 
ASS  I GN(TSEM, YY , R)  =  ASS  I GN(TSEM, YY+ 1 , R ) 

IF  R=5  AND  ASS  I GN (TSEM, YY , 0)  =  0  THEN  GOTO  18430 
NEXT  R 
NEXT  YY 

ASS  I GN ( TSEM, 0, 0 )  =  YY  -  1 

TSEM  =  SMNR :  IR  =  TEMPA 

IF  LOGFLG*  <>  "Y"  THEN  GOTO  18470 

PRINT  #1, "ASSIGNING  " ; SNAME* ; "I  =";SI;"  TO  SEMINAR  " ;TSEM 
IF  TRONS  =  0  THEN  GOTO  18490 

PRINT  "  ASSIGNING  " ; SNAME* ; "  #  =";SI;"  TO  SEMINAR  " ; TSEM 
GOSUB  16080:  GOSUB  17390 


GOTO  18400 


;TSEM 


IR  =  INDEX 
DELTA  =  -1: 


:  REM  «»  REMOVE  t« 


KK  =  SLT :  GOSUB  13270 


NEXT 
SEMI 
NEXT  SLT 
SEMI (12) 
SWTCH  = 
RETURN 


TSEM  =  SLT  +  FS 
SWAPFLG*  =  "N" 
GOTO  18610 
NEXT  SMNR 
SWAPFLG*  =  "N" 

PTR 

(SLT)  =  100 


*  ft  ft  ft 

ft  ft 

ft  ft 

ft  ft 

SUBROUTINE  TO  PROCESS  REMAINING  STUDENTS 

ft  ft 

ft  ft 

ft  ft 

NP  =  STAT ( IR.0,0) 

PRINT 

PRINT  n  ASSIGNING  REMAINING  RL* ; "  STUDENTS 
PRINT  "  (  PRIORITY  =  *;  PRIOR;  ")" 

PRINT 

NP  =  STAT ( IR.0,0) 


18760  IF  NP  =  0  THEN  GOTO  19820 

18770  ARFLAG*  =  "N" : SLFLAG*  =  "N" :  MXFLG$  =  "N" :  PRVFLG*  =  "N" :  FSFLG*  =  "N" 
18780  FOR  SS!  =  1  TO  STDNT 
18790  SI  =  SSI 

18800  IF  RECNUM(Sl)  <>  0  THEN  GOTO  19810 

18810  GET  #2, SI:  GET  #3, SI 

18820  LOGFLG*  =  "N":  OMEGA  =  0 

18830  IF  IR  =  0  THEN  GOTO  18860 

18840  GOSUB  13440 

188S0  IF  CHAR ( I R )  =  0  THEN  GOTO  19810 


18860 

GOSUB  15020 

REM 

**  FIND 

SQUADRON 

DATA 

*  « 

18870 

GOSUB  14870 

REM 

**  FIND 

SEMINAR 

DATA 

tf  * 

13880 

GOSUB  15160 

REM 

**  FIND 

OFFSET 

#  * 

18390 

FOR  I  =  0  TO 

12:  SEMI ( I )  =  0:  NEXT 

l 

18900 

IF  MS ( 1 )  <> 

0 

THEN 

SEMI (MS( 1 )  -  FS 

•f 

1)  = 

100 

18910 

IF  MS (2)  <> 

0 

THEN 

SEMI (MS (2)  -  FS 

+ 

1)  = 

100 

18920 

IF  MS < 3)  <> 

0 

THEN 

SEMI ( MS ( 3 )  -  FS 

1)  = 

100 

18930 

GOSUB  14640 

:  REM 

»  * 

RANDOMLY 

ASSIGN 

N  * 

18940  IF  TRONS  >  1  THEN  PRINT  "»  DEBUG:  TSEM=" ;  TSEM;  JJ  ;  KK 

13960  SWITCH  =  0:  GOSUB  15460  : REM  **  CHECK  PREV  CLASSMATES  ** 

18960  IF  SASN*  =  "N”  THEN  GOTO  18990 

18970  SWITCH  =  0:  GOSUB  15780  : REM  »»  CHECK  ON  CONSTRAINTS  *» 

18980  IF  SASN*  =  "Y"  THEN  GOTO  19740 

13990  SEMI (0)  =  0:  SEMI (12)  =  0 

19000  FOR  I  =  1  TO  11 

19010  IF  SEMI(I)  =  0  THEN  GOTO  18930  : REM  «*  TRY  AGAIN  *» 

19020  IF  SEM 1(1)  >  300  THEN  SEMI (0)  =  1:  GOTO  19040 

19030  IF  SEMKI)  >  200  THEN  SEMI  (12)  =  1 

19040  NEXT  I 

19050  IF  TRONS  <  2  GOTO  19090 

19060  PRINT  "«  DEBUG:  SEMI="; 

1 9070  FOR  I  =  0  TO  12:  PRINT  SEMKI);:  NEXT  I 

19080  PRINT  SI ;  SK:  PRINT 

13090  IF  SEMI (12)  =  1  THEN  GOTO  19680 

19100  IF  SEMI (0)  =  1  GOTO  19140 

19116  IF  PRVFLG*  =  "N"  GOTO  19130 

19120  PREV*  =  STR* ( MAXSTDNTS ) :  PRVFLG*  =  "N":  GOTO  19340 

19130  IF  MXFLG*  =  "Y"  THEN  GOTO  19200  ELSE  GOTO  19330 

19140  SEM 1(0)  =  0 

19150  FOR  I  =  1  TO  11 

1  j  1 60  IF  SEMKI)  =  100  GOTO  19190 

19170  IF  MAXSTDNTS  <>  SEMKI)  -  300  GOTO  19190 

19180  SEM! (  I  )  =  0 

19190  NEXT  I 

19200  MAXSTDNTS  =  MAXSTDNTS  ♦  1 

19210  IF  MXFLG*  =  "Y"  THEN  MXFLG*  =  WN":  GOTO  18890 

19220  IF  MAXSTDNTS  <=  VALtPREV*)  GOTO  18890 

192 iO  IF  MAXSTDNTS  >  9  THEN  MAXSTDNTS  =  VAL(PREV*>:  GOTO  18990 

19240  PRVFLG*  =  "Y":  LOGFLG*  -  "Y" 
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19250 

19260 

19270 

19280 

19290 

19300 

19310 

19320 

19330 

19340 

19350 

19360 

19370 

19380 

19390 

19400 

19410 

19420 

19430 

19440 

19450 

19460 

19470 

19480 

19490 

19500 

19510 

19520 

19530 

19540 

19550 

19560 

19570 

19580 

19590 

19600 

19610 

19620 

19630 

19640 

19650 

19660 

19670 

19680 

19690 

19700 

19710 

19720 

19730 


PRINT  #1.  "»**  WARNING  ***  UNABLE  TO  ASSIGN  (  SI;")  " ; SNA ME 4 

PRINT  #1.  "  TO  SEMINAR  WITH  LESS  THAN"; 

PRINT  *1.  MAXSTDNTS  -  1; "PREVIOUS  CLASSMATES" 

IF  TRONS  =  0  THEN  GOTO  18890 

PRINT  "  **»  WARNING  ***  UNABLE  TO  ASSIGN  (  SI;")  SHAMES 

PRINT  "  TO  SEMINAR  WITH  LESS  THAN"; 

PRINT  MAXSTDNTS  -  1;"PREVI0US  CLASSMATES" 

GOTO  18890 

IF  LOGFLGS  =  "Y"  THEN  GOTO  19390 
IF  TRONS  =  0  THEN  GOTO  19360 

PRINT  "  #*»  FORCING  ASSIGNMENT  FOR  " ; SNAMES ; " ( STU  «  ";STNS;")" 

PRINT  #1,  "**  FORCING  ASSIGNMENT  FOR  SNAMES 

PRINT  #1.  (STU  «  STNS;  ")  -  RULE  FOR  STATS(IR) 

LOGFLGS  =  "Y" 

SWTCH  =  0:  KK  =  0 
TEMP  =  15:  LL  =  0 
FOR  PTR  =  1  TO  11 

IF  SEMI (PTR)  =  SWTCH  GOTO  19470 

IF  MIX  <>  1  AND  VAL(MIXIS)  =  PTR  +  FS  -  1  THEN  GOTO  19470 
IF  MIX  =  3  AND  VAL< M I X2S )  =  PTR  ♦  FS  -  1  THEN  GOTO  19470 
IF  STATtO. JJ.PTR)  >=  ALOT ( 0 , J J , PTR )  GOTO  19470 
IF  TEMP  >  STAT ( 0, J J , PTR )  THEN  TEMP  =  STAT ( 0, J J . PTR ) :  LL  =  PTR 
NEXT  PTR 

KK  =  LL:  TSEM  =  KK  ♦  FS  -  1 

IF  TRONS  >  1  THEN  PRINT"*  DEBUG:  TSEM" ; TSEM; KK ; SWTCH ; FSFLGS ; OMEGA 
IF  FSFLGS  =  "N"  GOTO  19600 
IF  KK  <>  0  THEN  GOTO  19670 

IF  OMEGA  ♦  PRIOR  <  5  THEN  OMEGA  =  OMEGA  *  1:  GOTO  18890 
PRINT  #1.  " - - 

PRINT  »1,  "**»  CAN’T  ASSIGN  »*»  SNAMES;  "  (  »  ";  STNS;  "  )" 

PRINT  #1,  " - " 

PRINT  "  - " 

PRINT  "  »*»  CAN’T  ASSIGN  ***  ";  SNAMES;  "  (  #  ";  STNS;  "  ) " 

PRINT  "  . . " 

GOTO  19810 

IF  SWTCH  >  1  THEN  FSFLGS  =  "Y":  SWTCH  =  0:  GOTO  10860 
IF  TEMP  =  15  THEN  SWTCH  =  SWTCH  ♦  1:  GOTO  19410 
IF  STAT( IR.JJ.KK) >= ALOT ( I R, J J , KK)  THEN  SEM I ( KK ) =SWTCH :  GOTO  19400 
SEMI (KK)  =  SWTCH;  GOSUB  15460 

IF  MX3FLGS  =  "Y"  THEN  SEMI (KK)  =  SWTCH;  GOTO  19400 
IF  SWTCH  >  0  GOTO  19670 
IF  SASNS  =  "N"  GOTO  19400 
SWTCH  =  0:  GOTO  19740 
SK  -  SI:  SWTCH  =■  0 

GOSUB  17700  : REM  »*  TRY  EXCHANGING  *« 

SI  =  SK 

GET  #2. SI :  GET  *3. Si 
GOSUB  13440 

IF  SEMI (12)  =  2  THEN  GOTO  18990 


1 G  7  4  C  IF  LOGFLG$  >' '■  "Y"  THEN  GOTO  19770 

1 PRINT  *1,  "ASSIGNING  "  ;  SNAMEi ; "  *  =";S1:"  TO  SEMINAR 
19760  PRINT  II.  TSEM;  " 

19770  IF  TRONS  =  0  THEN  GOTO  19800 

19730  PRINT  "  ASSIGNING  " ; SNAMEi ; "  «  =";SI;"  TO  SEMINAR 

19799  PRINT  TSEM;  " 

19800  GOSUB  13440;  GOSUB  16080:  GOSUB  17390  : REM  »*  UPDATE  RECORDS  ** 

19310  NEXT  SSI 

19820  RETURN 

19830  REM 

19840  REM  **  »* 

19850  REM  »****»***»**»****»****»*»»*#*****»#«»**«««****»»**«******##***#*»**«# 

19860  REM  ««  »# 

19870  REM  *«  SUBROUTINE  TO  RANDOMLY  ALLOCATE  CHARACTER  1  ST  I CS  TO  SQUADRONS  ** 

19860  REM  •  *  »* 

19830  REM 


199  CO 

PRINT  "  ALLOCATING  SLOTS  TO  SQUADRONS 

n  . 

19910 

GOSUB  14870 

19920 

ADJ  =  0 

1993C 

FOR  !  =  3  TO  27 

1 99  4  U 

PRINT 

19950 

IF  STAT< 1,0,0)  =  0  THEN  GOTO  20070 

1  0060 

TA  =  STAT ( I ,0,0)  /  4  : 

REM  *» 

TEMPORARY  ALLOCATION 

19970 

IF  TA  <  1  THEN  TA  =  0:  GOTO  20010 

1  0980 

FOR  J  =  1  TO  4 

19990 

ALOTU.J.O)  =  INT(TA)  :  REM 

»*  GIVE 

SQUADRON  FAIR  SHARE 

200C0 

NEXT  J 

r  j 
o 
o 

o 

IF  STATU, 0.0)  *  (4  »  I NT ( T A )  )  =  0 

THEN  GOTO  20070 

20020 

FOR  L  =  1  TO  STATU, 0,0)  -  (4  *  INT(TA)) 

: REM  **  GIVE  REST 

20020 

ALOT ( I , ADJ . 0 )  =  ALOT ( I , ADJ , 0)  + 

1 

29040 

ADJ  =  ADJ  +  1 

200S0 

IF  ADJ  >  4  THEN  ADJ  =  1 

20060 

NEXT  L 

O 

f 

Zj 

NEXT  1 

20080 

PRINT 

20090 

RETURN 

20100 

REM 

20110 

REM 

*  » 

20120 

REM 

*  «  *  *  » 

*##»##**«* 

*»»»••«««»«« 

20130 

REM 

» » 

2C 1 40 

REM 

« « 

SUBROUTINE 

TO  OUTPUT  R! 

20 1  SO 

REM 

*  * 

2016C 

REM 

20 1  "0 

CLS ; 

LOCATE  2,2 

5:  PRINT  "MI 

20180 

STDNT 

=  STAT ( 0, 

0,0) 

20190 

OPEN 

"0".  11,  " 

STUOUT. ASC" 

.0200 

K0  = 

1:  PRINT  " 

OUTPUTTING 

202 1  G 

FOR  S 

SI  -  1  TO 

STDNT 

20220 

I 

F  SSI/10  > 

=  KO  THEN  PR 

*  « 
*  * 
» * 


20240  GET  #2, SI  :  GET  #3,S! 

20250  OTREC*  =  CHR$ ( 34 ) ♦ SNAME* ♦ CHR* ( 34 )  ♦  "  .  " 

20260  OTREC$  =  OTREC* *CHRt ( 34 ) ♦ STN* tCHR* ( 34 ) + " . n 

20270  OTREC$  =  OTREC*  +CHR* ( 34 ) + ASQ*+CHR*  (34 ) " 

20280  OTREC*  =  OTREC* +CHR* ( 34 ) ♦ M I XX* +  CHR* ( 34 ) + " , " 

20290  OTREC*  =  OTREC* +  CHR* ( 34 ) +PR I  OR*  +  CHR* ( 34 ) ♦ "  ,  " 

20300  OTREC*  =  OTREC*  * CHR* ( 34) +SLX*+CHR* ( 34  )  +  " , n 

20310  OTREC*  =  OTREC *+CHR* ( 34 ) + ASLX*+CHR* ( 34 ) " 

20320  PRINT  *1. OTREC* 

20330  NEXT  SSI 

20340  PRINT  #1 , CHR* ( 26 ) 

20350  CLOSE:  RETURN 

20360  REM 

20370  REM  **  »* 

20380  REM  »*****»»#***#*******#»******#*»»*»***«**«»t»**#»#)t*«*##**#»t»**»*«*«* 


Appendix  Four 


SMSS.BAT 
Program  Listing 

SMSS.BAT  is  an  MS-DOS  batch  file.  When  the  user  enters  " smss"  to 
start  the  system,  this  file  of  MS-DOS  commands  is  called.  Its 
major  function  is  to  pass  control  between  SMART  and  the  mixer 
program. 

SMSS. BAT 

echo  off 

echo  Calling  SMART -- S tandby  Please 

rem  SMSS . BAT -- t h i s  is  the  DOS  batch  file  used  to  call  SMSS  and  control 

rem  entry  and  exit  between  SMART  and  the  BASIC  program,  MIXER 

rem 

rem  After  operator  enters  "smss"  from  dos,  entry  is  here 
rem  First  call  the  SMART  datamanager  and  project  file  smss 
smart  d  -psmss 
: sm 1 oo  p 

rem  Return  from  SMART  either  because  the  user  hit  Esc  at  the  main  menu 

rem  or  because  the  user  has  chosen  to  cal  1  the  mixer. 

rem  Existence  of  file  env.asc  will  be  used  to  test  for  which. 

if  not  exist  env.asc  goto  smexit 

echo  ca 11  mixer 

mixer 

rem  do  test  for  error  exit 
if  exist  error. sms  goto  smerr 
echo  Calling  SMART- - S tandby 
smar  t  d  -psmss 

rem  return  could  be  from  exit  or  mixer  call,  go  back  and  check 
goto  sm 1 oop 
:  smerr 

echo  error  exit  from  mixer 
: sme x  i  t 

echo  exit  from  smss 


